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Prefazione 
all’edizione italiana 


Ogni possessore di personal o home computers, indipendentemente dal¬ 
l’uso prioritario che fa della sua macchina, non può restare impassibile 
di fronte alla possibilità di spendere parte del suo tempo giocando; il 
Commodore 64 inoltre, grazie alle sue caratteristiche grafiche e sonore, 
ben si presta alla rappresentazione e alla gestione di adventure games o 
di semplici giochi da tavolo. 

In questa ottica pensiamo che Divertirsi giocando con il Commodore 64 
possa farvi passare ore liete alla tastiera del vostro computer, facendovi 
inoltre acquisire, con l’esperienza, una conoscenza più approfondita delle 
capacità grafiche del C-64. 

I programmi dei 35 giochi presentati nel libro sono stati tutti provati — 
con nostro grande divertimento, cosa inusuale nella realizzazione di un 
volume — e le frasi che appaiono sul video sono state tradotte o modifi¬ 
cate. Solamente due giochi sono stati lasciati interamente nella versione 
originale, a causa degli insormontabili problemi linguistici che una tra¬ 
duzione avrebbe creato: essi sono MISER e MAD e risulteranno comun¬ 
que piacevoli a chi ha familiarità con l’inglese. 

I listati sono stati prodotti con una stampante Commodore MPS 801 per 
poter mantenere nella stampa tutti i caratteri speciali Commodore ed 
avere così un risultato del tutto identico a ciò che appare sul vostro vi¬ 
deo; per i meno smaliziati abbiamo aggiunto delle tabelle di interpreta¬ 
zione dei simboli speciali. Non vi resta che affidarvi al nostro gatto gio¬ 
cherellone che vi accompagnerà attraverso il libro mimando simpatica¬ 
mente ogni programma. 






Divertirsi giocando con il Commodore 64 contiene i listati di 35 program¬ 
mi pensati e scritti per il calcolatore C-64 (non funzionano su altri appa¬ 
recchi Commodore, come il VIC 20 o il PET); i programmi infatti sfrutta¬ 
no le caratteristiche del C-64, come i colori, i suoni, i caratteri grafici e 
gli sprite per rendere migliori le presentazioni; tutti sono scritti in BA¬ 
SIC, ma non è necessario essere provetti programmatori per poter gioca¬ 
re: basta inserirli da tastiera linea dopo linea. 

Per ogni programma troverete il listato completo: dovrete introdurre le 
istruzioni esattamente come sono, a meno che non vogliate modificare 
qualche funzione del gioco. Una volta memorizzato, potrete lanciarvi nel 
gioco utilizzando come spiegazione del suo funzionamento la paginetta 
introduttiva che precede ogni listato. 

Memorizzate sempre i programmi appena terminata la battitura, prima 
di eseguire RUN. Se infatti commettete qualche errore di battitura in 
una posizione determinante, potreste arrivare in fase di esecuzione ad un 
blocco del computer, per uscire dal quale sareste costretti a spegnere 
tutto e quindi a ribattervi interamente il programma. Avendolo salvato 
precedentemente, vi sarà sufficiente, dopo la riaccensione del calcolato¬ 
re, richiamare il programma e correggere quella linea in cui l’errore ha 
provocato il blocco. 

Quasi tutti i programmi utilizzano anche dei caratteri speciali (caratteri 
grafici, comandi di colore e di movimento del cursore, ecc.); i listati, pro¬ 
dotti con una stampante Commodore, sono esattamente come appaiono 
sul video, con un’unica libertà: gli spazi bianchi all’intemo di stringhe 
(fra virgolette) sono stato sostituiti con degli apici ( ' ), per permettervi di 
contarli senza diventare matti. Nelle rappresentazioni grafiche dei giochi 
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infatti ricorrono spesso intere stringhe di spazi vuoti; non avrete difficol¬ 
tà a riconoscere i "veri” apici, che compaiono solamente in stringhe di 
commento, dove l’italiano lo richiede. Se siete già esperti nella program¬ 
mazione grafica del vostro C-64 non avrete alcun problema ad identifica¬ 
re tutti i caratteri; per coloro invece che hanno ancora delle difficoltà a 
comprendere i vari simboli, riportiamo alla fine dell’introduzione una ta¬ 
bella esplicativa dei caratteri video speciali, a fianco dei quali sono indi¬ 
cati i tasti da premere per ottenerli. Nella spiegazione di ogni gioco poi 
troverete un elenco dei caratteri di stampa corrispondenti ai colori, ai 
comandi del cursore e ai caratteri grafici, limitatamente a quelli usati 
nel programma, affiancati anch’essi dai tasti da premere per ottenerli (la 
notazione “COMM” sta a indicare il tasto Commodore). Non allarmatevi 
se notate che tasti differenti danno origine allo stesso simbolo; in alcuni 
casi è proprio così. 

Vi raccomandiamo di impostare i programmi con calma e accuratezza, 
perché spesso la fretta porta ad inevitabili errori; se il programma non 
funziona, dovrete controllare il vostro listato con quello del testo, istru¬ 
zione per istruzione, con una perdita di tempo enorme. Con un po’ di pa¬ 
zienza all’inizio si può risparmiare una buona dose di fatica inutile in se¬ 
guito. 

Un’ultima raccomandazione: nei casi — peraltro frequenti — in cui all’in¬ 
terno delle istruzioni si trovino stringhe riempite con un certo numero di 
caratteri uguali (spazi vuoti, movimenti del cursore, ecc.) contate con cu¬ 
ra il numero esatto di caratteri; essi sono calcolati per ottenere delle rap¬ 
presentazioni ordinate sul video e devono venir copiati esattamente. Se 
trovate difficoltà, potete utilizzare il regolo riportato qui sotto, dopo 
averlo fotocopiato. 


COHTfìCflRfìTTERI M 

- | " I TT f j r 1 " l 'T j ’ I ì T r j I 'r r i j 'T r i 

5 10 15 20 25 


"i“|"'ri I I I I ri rj' i t r i j i"i i i | 

30 35 40 45 50 


Molti dei giochi utilizzano un joystick; in questi casi, inserite lo spinotto 
nella porta 2. Anche se in teoria sarebbe possibile usare la porta 1, 
quest’ultima a volte può interferire con la tastiera, con il risultato che un 
tasto battuto erroneamente può venir interpretato dal C-64 come un in¬ 
put sbagliato alla porta del joystick. 

A volte i joystick non si inseriscono bene nella porta: se vi capita, vi con¬ 
sigliamo di usare il contenitore di una cassetta per sostenere lo spinotto 
una volta inserito, in modo che resti perfettamente orizzontale. 

Spesso inoltre i giochi utilizzano le capacità sonore del C-64, per cui vi 
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raccomandiamo di sintonizzare bene il televisore e di regolare il volume, 
per non perdere niente delle rappresentazioni. 

Per aiutarvi nella fase di impostazione, i programmi utilizzano tutti la 
medesima routine di presentazione standard (ciò che appare sullo scher¬ 
mo prima che inizi il gioco), a partire dalla linea 60000. Fanno eccezione i 
programmi MINI, che non hanno presentazione. Nei programmi SCOM¬ 
MESSA e GODZILLA esiste in questa routine una riga aggiuntiva (rispet¬ 
tivamente la 60025 e la 62035), mentre tutti gli altri utilizzano le stesse 
identiche linee senza alcuna variazione. Questa routine ha il compito di 
mostrare il titolo del gioco, assumere il controllo del joystick, eseguire 
una serie di controlli sulla tastiera e predisporre alcune variabili utilizza¬ 
te nella maggior parte dei programmi. 

Risparmierete tempo e fatica introducendo nel C-64 la sola routine una 
volta per tutte e memorizzandola su cassetta o su disco. Ad ogni gioco vi 
basterà richiamare la routine come prima cosa e quindi battere il pro¬ 
gramma principale (ricordatevi che SCOMMESSA e GODZILLA hanno 
una riga in più nella routine). 

Per uscire da qualsiasi gioco prima della fine, basterà battere la lettera Q 
(da "quit” = uscire). 


Caratteri speciali del Commodore 64 


Video Stampa e tasti 

Video 

Stampa e tasti 


^ -f SHIFT + 

r 


- SHIFT R 


1 1 SHIFT - 


E 

1 SHIFT T 


P r SHIFT £ 


J 

1 SHIFT V 


^ t SHIFT Q 



^ SHIFT U 


0 SHIFT 14 



SHIFT I 

0 " SHIFT E 

1 

n 

r SHIFT 0 








14 INTRODUZIONE 


Caratteri speciali del Commodore 64 


Video Stampa e tasti 

Video Stampa e tasti 

n SHIFT P 

^ t SHIFT X 

^ J SHIFT 0 

^ - SHIFT C 

^ - SHIFT Ut 

X SHIFT V 

ff SHIFT t 

PJJ 1 SHIFT B 

[ijj f SHIFT fì 

^ / SHIFT N 

# SHIFT S 

^ \ SHIFT ri 

Q “ SHIFT D 

^ ^ confi + 

^ - SHIFT F 

^ g conn - 

[|~| 1 SHIFT G 

Q conn £ 

PI"! 1 SHIFT H 

[~P 1 “ conn Q 

1 ^ SHIFT J 

[i^J H conn w 

PP ^ SHIFT K 

^ conn E 

^ L SHIFT L 

^ T conn R 

[fi ♦ SHIFT 2 

PP “ conn T 
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Caratteri speciali del Commodore 64 


Stampa e tasti 

Video Stampa e tasti 

- COMM 

V 

E 

1 

conn 

j 

" coriM 

u 

E 

i 1 

conn 

K 

■ coriM 

I 

□ 

1 ■ 

conn 

L 

« conti 

0 



conn 

2 

« conn 

p 

? 


conn 

X 

^ conn 

@ 

r" 

1 . 

j 

conn 

c 

conn 

* 

E 

1. 

j 

conn 

V 

r conti 

fì 

5 

h 

conn 

B 

-1 conn 

s 

□ 

1 ' 

conn 

N 

■ conn 

D 

□ 

1 ' 

conn 

n 

■ conn 

F 


] ' 

SPfiZIfiTIJRfl<*) 

1 conn 

G 


1 « 

RVS 

ON 

1 conn 

H 

S 

1 


RVS 

OFF 


(HO Notazione usata Per comodità^ di lettura 
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Caratteri speciali del Commodore 64 


Video 


s 


□ 




□ 

B 

n 

m 






Stampa e tasti 


Video 


a HOME 
n CLEfìR 
M CRSR-D 
n CRSR-U 
N CRSR-R 


n 

□ 




□ 

R 


Il CRSR-L 
Il INST 
■ CTRL BLK 
a CTRL WHT 
rS CTRL RED 
k CTRL CVH 
a CTRL PUR 


□ 

|] 

U 


Stampa e tasti 


li CTRL GRN 
S CTRL BLU 
ai CTRL VEL 
:3 confi BLK 
R conn WHT 
0 conn RED 
a conn cvn 
iì conn PUR 
Il conn GRN 
n conn BLU 
:: conn vel 








È il primo di cinque programmini dimostrativi, che dovreste essere in 
grado di inserire nel C-64 in meno di dieci minuti. 

Mini-J crea una serie continua di videate multicolori, tanto per dare 
un’idea delle possibilità grafiche a colori del calcolatore. 

Dopo aver battuto il programma e controllato riga per riga che tutto sia 
giusto (ricordatevi che gli apici sostituiscono gli spazi bianchi), salvatelo 
per prima cosa su cassetta o disco; un errore di battitura in un’istruzione 
chiave infatti potrebbe bloccare tutto in fase di esecuzione, e per cavar- 
vela potreste essere costretti a spegnere il C-64, perdendo tutto il lavoro 
fatto. È sempre buona regola quindi salvare i programmi inseriti prima 
di battere RUN. 

Mini-1 continuerà a girare finché non vi stufate e battete — come in tutti 
i giochi — il tasto Q. 


CflRRTTERI SPECIfìLI UTILIZZATI 


COMRHDI & COLORI 
a RVS OH 
Il CRSR-L 
rj COMM BLU 


□ CLERR 
■ CTRL BLK 


a HOME 
Il IHST 


18 MINM 


100 i::M=55296 : Wri=40 : VI C=53248 
105 W=W+1 : BL$=" 

•■•••■ •'■v•■■l■■■•■■" . 

110 PÒKEVn:;+ 32 .. 0 :poke vic+ 33 .. 0 : pr i ht" :iÈ"r- forn= 1 io 

24 :PRIHTBL$ 

120 NE:KT:PRINTBL$‘'SJ" 

150 FORQ=12T01STEP-1 :GOSUB200:HEKT 
160 Fi:iRQ= 1TO12 : GOSUB200 : : FORZ= 1TO100 : NEKTZ : GO 

TO150 

200 UL=Cri+Q+Q#Wri : IJR=CM+G!i<«Wri+ < 39-Q > : LL=CM+ < 25-Q > *W 
D+Q : LR=CM+ c: 39-Q > +Wrii* < 25-Q > 

205 W=W+1:IFW>15THENW=0 
210 FORH=IJL+1 TOUR : POKEH.. W : NEXT 
220 FORH=URTOLRSTEPWri : POKEH.. W ^ NEKT 
230 FORN=LR-1TOLLSTEP-1 : POKEH.. W ; HEKT 
240 FORH=LLTOIJLSTEP-WD : POKEH. W : HEKT 
250 GETZ$; IFZ$<>"Q"THEHRETURH 
260 PRIHT":T1" :EHri 





Di impostazione simile al precedente, Mini-2 crea sullo schermo dei dise¬ 
gni a colori formati da una linea continua che — punto per punto — 
prende una direzione a caso tra le quattro possibili. Dopo qualche minu¬ 
to avrete di fronte a voi una fantastica opera d'arte! 

Anche per Mini-2, dieci minuti vi basteranno per inserirlo e controllarlo. 


- CRRfìTTERI SPECIRLI UTILIZZRTI - 

SIMBOLI GRRFICI 

+ SHIFT + ! SHIFT - - SHIFT 

r COMM R T COMM 3 '■ COMM Z 

COMM K 


COMRNrH S: 
:] CLERR 
il CR3R-L 
il CTRL PUR 
:Z COMM ELK 


COLORI 


;« CRSR-D 
» CRSR-R 
fii CTRL GRH 


n CRSR-U 
k CTRL CVH 
.■n CTRL VEL 
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100 VI C=53248 : FORI = 1T04 ; FORJ^ 1TOS : REfìDSV$ < I.. J >.. \\TJ 
a..J>:HEKT J.. I 

110 F0RI = lT04:REflD RC< I>.. CC< I > : HEKTI 
120 ri=iHT';:RND<i;j#4+i:;' 

130 R= 12 : C;=20 ; PRI NT " ."iPMcMcMPMPftMW"TRB C ) ; " 411”: P 
i:iKEVIC+33.0 

140 R=F;+RC C II ■ C:=C+CC D > ^ ^•1=6 

150 T= I NT RHH C 1 > if H+1 ) : I FT>3THENT=3 

160 ND=ND < IN T : R2=R+RC ■: ND > : C2=C+CC ( HD > 

170 I FR2< 10RR2>230RC2<: 10RC2>38THEN 150 
180 IFRND C 1 > >. yòTHENPR I NTLEFT$ ( " . RND e: 1 > *5+1 

) ,i 

190 PRIHTMIri$( "7MP1I" /DA > ; SV$<D.. T>. "II" 

200 GETfi;*: : I Ffì$= " Q " THENENU 
210 Ii=Hri : R=R2 : r;=i::2 ; GOTO 150 
260 DRTH" r".2.. "■i"..4.. " I".. 1 
270 URTA " -I " . 3.. " 1.. " .. 2 

280 riRTR 4 ,. " '-".2.. " l"..3 
290 DRTR" '■"..1.. " r"..3.. "-"..4 
300 URTA-1.. 0 ,.0.1.. 1.. 0.0. -1 





Mini-3 disegna sul monitor delle figure simmetriche rispetto a due assi 
(verticale e orizzontale). Dovrete aspettare qualche secondo all’inizio, du¬ 
rante i quali il C-64 calcola la prima figura da far apparire; il calcolo di 
quelle seguenti invece avviene durante la pausa in cui è presentato il di¬ 
segno. 

È ancora un programmino semplice e inseribile con poca fatica, tanto 
per fare un po’ di esercizio con la tastiera e prendere confidenza con i 
simboli grafici. 


CfìRftTTERI -SPECIRLI UTILIZZRTI 


SIMBOLI GRRFICI 
I SHIFT - 
SHIFT U 
t SHIFT Q 


COMRNIiI & 
Si HOME 
1 CRSR-LI 
Si CTRL WHT 


:0L0RI 


- SHIFT 
SHIFT K 


n CLERR 
Il CRSR-L 


SHIFT I 
SHIFT J 


M CRSR-D 
li CRSR-R 
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1000 

1 ^‘^05 
1010 
1020 
1 100 
1110 
2000 
2010 
2020 
2100 
2110 
2120 
2130 
2135 
2140 
2150 
2160 
2170 
2180 
2200 
2210 
2220 
2300 
2310 
2320 
2330 
2400 
2410 
3000 
3005 
3010 
3015 
3020 
3080 

3090 
3Ì00 
3110 
3120 
3150 
3160 
3170 


V10=53248 : POKEVIC+33.. 0 : MH=20 : ì'Vi<= 100 : DIMP MX+1 
) / H(4^ / V4 ) > RG (. 6!•' .• R ( 6) 

PRINT":i«W:|iitE;Ti:i- LflVORfiNriO... " 

HL=4:HH=2:VL=3:VH=1^ HC=5:VC=6 
LF=1:flH=2:RT=3:RV=2 

POR I = 1T04 : FORJ= 1T03 : REfìHD < IJ ). li$ (. I.. J > : HEXTJ. I 
FORI = 1T04 ; RERDH < I >. V c! I > ^ NEXTI 
H= IHT < RHD < 1 > * •:: riX-riH+1 > ) +MH 
H=0 : V=0 : ri=VH 

F0RI=1T04:R<I>=0:RGCI>=0:HEXTI 

F0RI=1T0H 

P=IHT'::RNDa>^3> + l 

GOSUB8400 

P(:i>=P 

GETT$ I FT$= '• Q " THEN END 
HEXTI 

IFri=VHTHENN=H+l : P=LF : Gi:iSUB8400 : P<N>=P 

IFri=HLTHEHTN=LF 

IFri=VLTHENTN=RV 

IFri=HHTHENTH=RT 

FORI=0TO4:R a)=RG <I>:RG <I> =0 :HEXTI 
R(;hc>=h;r<:vc::'=v 

H=0:V=0:D=VH 
GOSUB8300 

H=H+R HC ) • V=V+R ve 

ONTHGOSUB8000 .■ 8100,8200 

IFri<>VHTHEN2300 

IFRG HH > ~RG C HL >72THEH2000 

IFRG < VH >-RG < VL > >46THEN2000 

H0= < 72- ( RG < HH ;■ -RG < HL ) > > /2-RG < HL > 

H0=IHT'::H0/2>+3 

Vu= 46— Rg VH .J —Rg VL ) /2'+’RG VH } 

vo=iHT';:vo/2:;' 

PRINT"^" 

PRINTLEFT$':: .. VO+1 > 

TflB < HO > ; : Q=POS < 0 
ri=vH 

F0RI=1T0N 

pRiNT"*ir : PC I ) > ; : D=D<rG pa > :;■ 

GETT$ : IFTf O" '’THEN3200 
HEXTI 

IFri<>VHTHEH3100 

GOTO2000 
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3200 RETURN 
8000 REM 

3010 T=R<VH> ;R<VH>=R<HH> :R-;;HH)=-R>;;VL::' :R-:!VL>=R(HL/ ^ 
R';:hl)=~t 

3020 T=R ( HC > ; R HC > ==-R < VC > : R ( VC > =T 
3030 D=D D .• L F ') 

8040 RETURN 
8100 REM 

3110 T=R(HH> ;R';;hh>=-R';;hl> :R';:hl;:'=-t 
3120 T=R(VH;' :R<VH>==-R';;VL::' :R(VL>=~T 
y 13U R Hu j =~R HC ) • R VC ) ~~R *•. VC ) 

9140 D=ri(rKrcRT>.RT> 

8150 RETURN 
8200 REM 

3210 T=R'::VH> :R'::VH)=-R<HL> ;R(HL)=R':;VL> :R(:VL>=-R<HH> 

:r<hh:;'=t 

3220 T=R ( HO : R HC > =R C VO : R C VC > =-T 
8230 D=D(D..RT:;' 

3240 RETURN 

8300 T=R(HL>+H: IFT<RG-;HL>THENRG'::H0=T 
8310 T=R < HH > +H : I FT>RG HH > THENRG •: HH > =T 
8320 T=RCVL>+V: ift<rg(vl:;thenrg<vl>=t 
8330 T=R<; VH> +V : IFT>RG< VH>THENRG( VH> =T 
8340 RETURN 

8400 Nri=ri n.. p > : h=h+h n +h < nh > : v=v+v < n >+v < nd > 

8410 GOSUE8300 ^ D^ND 
8420 RETURN 

9000 DHTfì4.. . 1" un" ,.2,. " /' 

9010 DfiTfl 1.. " -• IH" 2 .. " . 3.. " IW" 

9020 rifiTfl2.. " .. 3. " IIW" .. 4> 

9030 DfiTfìS.. " .4,. . 1" ■•in" 

9040 riflTfl0.. 1.1.. 0.. 0-1-1.0 









Una singolare rappresentazione di un vulcano in eruzione, con lapilli e 
rocce che vengono proiettati fuori dal suo cratere! 

Anche qui lo scopo principale è quello di familiarizzare con la miriade di 
simboli grafici del C-64. 


-CRPlHTTERI SPECIRLI UTILIZZRTI- 

SIMBOLI GRRFICI 

r SHIFT £ ,/ SHIFT N \ SHIFT M 

COMM * 

COMRHDI & COLORI 

Si RV3 ON ■ RVS OFF M CRSR-D 

1 CRSR-U II CRSR-L II CRSR-R 

ra CTRL RED fil CTRL VEL a CTRL WHT 

li CTRL GRH COMM BLK .T COMM BLU 

2i] COMM PUR 


26 MINI-4 


1000 VI C=5324S : i::RT= 1024 : Wri=40 : POKEVIC+33.0 ^ GOSUB16 
00 

1001 riia>=wD-i :rii'::2>=wri:Di':3>=wri+i ;DK4>=-i :Di<6> 
=1 :rii';;7>=-wri-i :rii(3>=-WD 

1005 DI':;9)=-WIn-l 

1015 ni rifi < 50 ) : FORH= 1TO30:1 FN<26THEHREfiriQ : fi < H ) =D I Q > 
1020 fi<H>=fi'::N)+fi<H-l ) :NEKT 

1025 DIME<50>:FnRN=1TO30 ^IFN<26THENREflDQ: E<N> =DKQ> 

1030 e<:h>=B(:n;;'+e<n-i> ;HEXT 

1040 TP=CRT-WD*3-7 
1050 F=81;G=32 

1060 DI Mri$ < 21 > : FORH= 1TO20STEP2 : D^: < H > = " 5f:r;yTa^" : D 
■$ H+1 = " ar«T3’^!iFT:r" : HEKT 

1070 Bt= " a?ftMi!!lSl«!M»Mi!Mi!»**ÌÌÌÌÌ»ÌÌ!liÌÌÌI" : Ef-= " TTi| - ' MI 
II - ••• " 

1080 fii:= " T^i5rirr:rMii/;^-.:!!iiiRiT\r:i/ri-' 

1090 H1 =TP+Wri* 13+25 ; H2=TP+Wri* 13+23 : H3=TP+Wriif: 13+24 : 

H4=TP+WIiif: 12+24 : H5=TP+WDi+i 13+22 
1100 H6=TP+WriJ^ 12+23 : N7=TP+WD# 12+22 : N8=TP+WDi+; 12+25 
1110 GOSUB1320 
1120 K<1)=205:K<2)=206 
1130 FORH=1TO1200:HEKT 
1140 GOTO1210 

1150 POKEH1 +fi < Q1 -1 . G : P0KEH2+fi Q2~ 1 > .■ G : P0KEN3+fi Q3 
~ 1 > .• G • P0KEH7+fi < Q7-1 >.. G 

1160 POKEN4+E 04-1 >. G : P0KEH5+E ( Q5-1 >G ^ P0KEH6+B ( Q6 
-1 ) .• 0 • P0KEH8+B <. U8" 1 y j G 
1170 IFQ3=17THEH1210 

1180 F’UKEN 1 +fi Q1 ) .• F • P0KEN4+E '•! Q4 y .• F • POKETJi'+fi '•! 02 y .> F 
1185 P0K£H7+fi 07 >.. F ; P0KEN8+B 08 >F : P0KEN5+B ( 05 >F 
1190 P0KEN3+fi 03 ).. F : P0KEH6+B ( 06 >. F : F=46 ^ PRI NTB$D4: < 
03;v 

1195 GÉTI H$ : IFI m-r-z " Q •• tHEHPR I NT " TJ" : END 
1200 01 =01 +1 02=02+1 03=03+1:04=04+1 ; 05=05+1 ^ 06=06 
+ 1 :07=07+1•08=08+1 : GOTO1150 
1210 F=81 :PRINTEGRI:- 
1220 O2=INT':RND<:10>#5> 

1230 O3=IHT':RND<:10>*5> 

1240 Q4=INT';RND-::10>*5> 

1250 O5=INT(:RNDa0>iti5;> 

1260 O6=INT(RHD(10>*5> 

1270 Q7=IHT<RNDa0>4;5) 

1280 O8=IHT'-RND<10>if5;) 








1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1500 

1510 


Ql = IHT<RNrK10)*5;- 
PRINTE$E$ 

GOTOl180 
PRI NT " 

PRI NT " 

PR I NT " »ÌÌÌÌ»ÌÌÌ»»ÌÌÌÌlEr " ^ 

pRiNT'’>iiiiii»iiiitii:r-' •- •- - t 
PR I NT " «ii»iii>iiiica.-T!ìrv^a - - 


PRINT"l»ÌÌ*ÌÌÌ»ÌÌÌl/-- •• - 

PRINT-miiiiiiiiiil.-- ••• 
PRINT">ÌÌÌiWi»W.-- " 
PRINT">ÌÌÌÌÌÌÌÌl.--- 
PRINT">ÌÌÌÌÌÌ»l.-- 
PRINT"«»ÌÌl/-v -lÌt-' t - ••• t 

PRINT"liÌÌÌl/--..-1itf ' tt- •• 
PRINT"»Ìiit- ttt-' t - tt- •- t 
RETURN 

DfiTflS.. 8,. 8.9.9.6..6.6.. 3.. 3.. 3.. 3.. 3 

cÌj 2..' c- .< 2 

DfiTR8.8..8.. ?.. 7..4..4,. 4. !.. !.. 1.2,. 2 


t - •- -■ •- 


tt - •- •- •- ■- •- 


•T^3\-' 
■- tt- 
t " '■ t 


1600 T=PEEK<;VIC4-17;':pnKE VIC+17..0 
1610 POKE VIC+33.. 1 :PRINT 
1620 POKE VIC+33..0:pnKE VIC+17..T 
1630 RETURN 




















Mini-5 



'U 


Per finire con questi programmini dimostrativi, eccovi un fantastico ca¬ 
leidoscopio per il vostro C-64, come quelli che si trovavano una volta! 

I -CflRRTTERI SPECIRLI UTILIZ2RTI - 1 


SIMBOLI GRRFICI 


r SHIFT £ 

1 

COMM 

K 

■ 

COMM 

I 

CONM * 

■ 

COMM 

D 

■ 

COMM 

F 

" COMM C 

• 

COMM 



COMM 

B 

COMRHDI & COLORI 

a RVS OH 

■ 

RVS 

OFF 

a 

HOME 


n CLERR 


CRSR- 

-D 

al 

CTRL 

WHT 

ra CTRL RED 

k 

CTRL 

CVN 

■A 

CTRL 

PUR 

ii CTRL GRH 

:ì conm BLK 

n 

k» 

CTRL 

BLU 

ni 

CTRL 

VEL 


30 MINI-5 


100 CRT~1024 : HT:=24 : WD==40 : PRINT"2!" 

110 v'IC=!=i224R : PnKEVIC+33.. 0 
120 W i fiTH==3S • < WD-4-WI ) /2+2 ■ REM +3 

130 MEIGHT=23•V=(HT-HE>/2+1 

1 4 0 C $ = " igi!M?lPMiì!lPMPM?M»M?MPM«!M^^ 

150 DIMCH^'::22) 

160 Fr!RJ=0TO22 : REfìDCHl: < J > • NE>a'J 
170 C1 = 1 : C2=2 : C;3==3 : C5=5 : C7=7 
180 RK = IHT(RNDa>:^WI/2;' 

190 RV= IHT < RND 2 ) #HE/2+1 ) 

200 CH$=CH$( INT<RHD< 1 >;^23;:' > 

210 PRINTLEFT$-:: '' .. RND< 1 >*8+1 > : 

220 PRI HTLEFT$ 0 $.. V+RV > ; TRE ( X+RX > ; MI ( CH$C1C2 >. 
230 PRIHTTflE<X+WI-RX-1 > ; MI0$<CH$.. C3. C2> 

240 PR INTLEFT:f ( C$.. V+HE --RV+1 >TRE X+RX > .; MI(CH$.. C 
5 .• C2 > 

250 PR INTTRE<X+WI -R: T- 1 > ; MI B$ <CH|:.. C7.. C2> 

2 6 fi F U R L = 1T U10 * G 

270 GETS$:IFST="Q"THEHENE 

280 IFS*:=‘'"THENHEXTL 

290 L=VfiL'::ST) : IFL>0ORS$==‘'0"TH£I-18=9-1 

300 GOTO180 

310 fiHTfi"3i :i m è» '■.. " :-a «s a «a " 

320 DRTR " .. " 

330 rifiTfi''!nn:-nsr" .. "src-rww" 

340 rlfiTH''?^»i^sr:4^^. 

350 DRTR"!! A " S nZk Zi "zr " 

360 ERTR"» ^ '■ Zi "zr Zi tZh " 

370 riRTfi‘'ai ■ rfr * •".. " zìb a .a* zi 
380 ERTA " .. ■■ a" a "ai a ■" 

390 r!fiTfì"»'iSria"ii?"i" .. " zr^<i!^,zrM'‘ 

400 ERTA " ?■■ ? ' ?■'■ ?■■' " .. " Zi-' Zi- Zi " zi " " 

4 ì 0 ERTA " ?••■ ?••■?■■■ ?" " " ?••■ ?"■ ?"■ ?"■ " 

420 ERTA " ? " ? " ?"■ ? " " 









Formula 1 

(joystick) 



Formula 1 è un facile programma di corsa in macchina, in cui l'automo¬ 
bilina viene controllata dal joystick. 

Come in tutti gli altri giochi del libro, le righe dalla 60000 in poi costitui¬ 
scono la routine di presentazione standard del gioco, uguale per tutti; vi 
conviene quindi per prima cosa battere queste righe e memorizzarle a 
parte su cassetta o disco, per poterle poi richiamare ogni volta e inserirle 
in coda ai programmi principali. Per maggiori dettagli leggete l’introdu¬ 
zione. 

Fatto questo, battete il resto del programma e controllatelo accuratamen¬ 
te (vi ricordiamo per l’ultima volta che gli apici sostituiscono gli spazi): 
quando tutto è a posto, salvatelo, collegate il joystick alla porta 2 e batte¬ 
te RUN. Partiti! La macchina corre lungo una pista con rettilinei e curve 
(un po’ spigolose a dir il vero) che si stringe mano a mano. Se siete un 
buon pilota arriverete in fondo al circuito, altrimenti uscendo di pista 
terminerete la corsa con un’esplosione. In ogni caso alla fine comparirà 
la classica domanda se volete continuare o smettere; scegliete l’opzione 
spostando il joystick su SI o su NO e premendo il pulsante. 
L’automobilina da corsa è creata utilizzando la tecnica degli sprite; se 
avete familiarità con gli sprite potete cambiarne la forma e le dimensioni 
(riga 145). 

Il programma principale è abbastanza breve, quindi... 15 minuti al via! 
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- CRRflTTERI SPECIALI UTILIZZATI - 

SIMBOLI GRAFICI 

r SHIFT £ \ SHIFT M CONM % 

^ CONM + I COMM M 

COMANDI & COLORI 

21 RVS OH ■ RVS OFF 3 HOME 

n CLEAR W CRSR-n n CRSR-U 

Il CRSR-L 4 CTRL WHT li CTRL GRN 

k CTRL CVN ni CTRL VEL » CTRL PUR 


1 PG$= " F •' 0 R M •• LI L A ■■ •-1 •- " : AU$= " DI •- BRIAN ■" SRWVE 
R":JF=1 

5 REM COPYRIGHT tX) 1983 THE CODE WORKS 

6 REM BOX 6905.< SANTA BARBARA.- CA 93160 

10 REM AS OF 8/19/83 BS 
90 GOTO62000 

100 DI ML$ <; 9 > L 3 >.. B < 25 > .■ PX < 1000 > : GOSUB1000 : P0KE53 
280.. 0 : P0KE53281 .• 0 

110 POKEVIC.. 0 ; POKEVIC+23.. 8 : POKEVIC+290 ^ POKEVIC+2 
7.000 

115 N= ì 9 : PRI NT " : V=-46 ^ W 

=0 


120 

Q=35 

:ri= 

2:K 

= 162 : U=0 : 1=0 : B= 

0 


121 

POKE; 

2040.. 1 

3:P0KE53287.. 8 



125 

POKE' 

'v'IC 

..K: 

POKEV IC+ 1.. 160 



128 

Lt(.ì 

;:i = " 

zr-' 


3> = "ins!- 

X- ' :L 


$(:2>: 

il 





129 

L$<4 

> = ■■ 

sr-' 

apri. 

="!na-- ■■■ 

:L$(:5> 


= "2|- 

1 


y 1» 



130 

LfC? 


zr-- 

••• / «r" : ]_$9 = " 

ina-' : 

il 

co 

_i 


132 PR I NT " : FORN= 1T025 ; PR INTTAB < 11 L$ (. 2 > : NEXT : PR 
INT"3l".i :N=11 

133 POKEVIC+21.1 
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135 L< 1 )=-l :L':;2>=0• LC3> = 1 
140 PRIHTTRE-:;H)L$a*1+I> 

142 U=U+1 : IFIJ=110THEH300 

145 P0KE53264SGH < KFIHD256 > : P0KE53248KPIHD255 

155 Q=Q+1 :Pl=PEEK': 56320 > : IFh=123THEHK=K-8 

156 IFPEEK 1 622+K:/8 >=32THEN400 
15? OEim ■■ 1 Ffl$= " Q " THEH600 

160 IFfi=119THENK=K+8 

175 IFRND a > >. 7THENM2=ri : ri= IHT < RND C 1 *3 > +1 
185 H1=N+L(M) 

190 IFN1 >27CiRN 1 <4THEHN 1 =H : M=2 
195 H=Hl:GOTO140 
200 IFW=0THEHW=1 :V=-22:G0T0210 
205 W—0•V—~46 

210 P0KE53287.. W : P0KE53237.. W : RETURN 
300 IFBTHEN500 

302 IFI =6THENB=B+1 •• PRI HT '• II" ; : IJ= 100 : GOTO 145 
305 I Fr'1<>2THENIJ= 109 : GOTO 145 
310 H=N+1 ; 1.1=0 : N=2 : I = I +3 
320 GOTO145 

400 FORN= 1TO30 •• POKE53280.. 1 ; FORT= 1TO10 ^ NEKT : P0KE53 
280..0:NEXT 

410 P0KE53269.. 0 ; PR I HT " :H!li!l«!M«T I •- SE I -■ SCHI flHTRTO ! " ; G 
0T0545 

500 FORH= 1 TO 1000 ; NE:KT : P0KE53248+21.0 
505 PR I HT " ."IdMtìcWaUfi I •- FINI TO ' Lfi •- CORSR ! " 

545 PR I HT : G0SUB9100 : PR I HT " ; : IFVNTHEH120 

546 PRINT"n«r ;EHD 
550 TM=TI+10 

560 IFTN>TITHEH560 
570 RETURN 

600 PR I NT ■■ af!M«!J:-iRRZ IE - PER -• LR •- GRRR ! " : P0KE53248+21 .■ 0 
: END 

900 PRINTPEEKC56320):GOTO900 

1000 RERDR:F0RH=64*13T064*14-3 :RERDR:POKEH.R:HEXT 
: RETURN 
9100 HO=0 
9110 Tri=0;SW=l 

9115 PR I HT " sfj I OCR I •- RRCORR? 331 '' HO •' H" 

9120 IF TICTM THEH 9150 

9130 PR IHTTRB < 14+H0if:4 )MI M < " affi".. SW1 ) ; NIDT C " •- SI HO 
.3if;H0+1..3).; "T 
9140 SW=3-SW:TM=T1+15 




*7't iTi *7'i 0‘i *7ì *7} *7*1 *71 *7*i '7'i *7'i '7*i *7'i *7*i *7ì *7*i *7*1 *7*i *7*i *7*i CH CH CH '*71 
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JD=PEEK<JS)RHD31 :JB=UD<lò) : JD=JDfìNril5 
IF JB RHIi Jri=15 THEN VN=-:;HO=0> : RETURN 
IFC.TD RND 8>=0 RNIi NO=0 THEN NO=l:GOTCi 9115 
IF( JIì RND 4>=0 RND NO=l THEN NO=0 ■ GOTO 9115 
GOTO 9120 


.. 0.. 0 

..71.. 

.255 

.. 226.. 239 

. 60. 

247. 

25 

.. 191 

..237.. 19 

3.183 




128.. 

1 'ó '3 < 

.205 

..255.. 243 

. 13. 

CO 

11 

255.. 

240. 

. 15.. 

255.240 




55.. 2 

40.239.. 

255.240. 

255. 


24 


5.255.. 255.. 255.. 255.. 24?.. 255 
riRTR127.- 243190,. 239 ■ 1.255.. 128.. 0.-127 
IN$=" " : ZT=TI : ZC;=2 : ZD1:=CHR$(20> 

GETZ$:IFZ$<>""THEN80070 

IFZT<=TITHENPRINTMID$';; " • 1" . ZC. 1 > ; "II" ; : ZC=3-ZC 
:ZT=TI+15 
GOTO60010 

Z=RSC<Z$::' ;ZL=LEN<IN$> ; IF';;ZRND127><32THENPRINT 
" ••'H".; ;GOTO60110 
IFZL>QI THEN60010 
IN$=IN$+Zf:PRINTZf;Zn#;Z$. 

I FZ= 13THENI N$=N I n# C I N$. 2 > ^ PR I NTCR$.; ^ RETURN 
I FZ=20RNriZL> 1 THEN I m=LEFT$(. I N$. ZL-1 ) : PR I NT " II" 

; :GOTOt.0010 

I FZ= 141 THEN2$=CHR$ C -203*: < ZL> 1 ;• > : F0RZ=2T0ZL : PR I 
NT2$.; • NEKT • GOTO60£i00 
GOTO60010 

CRT=1024 : V 10=53248 : WD=40 : CR$=CHR$<: 13> : 8111=542 
72 :JS=56320:CM=55296 
QL=214 :QI=254 : RETURN 

GOSUB61000 : POKEVIC+32.0 ^ POKEVIC+33.. 0 : LN=LEN':;P 
■■ lB-(A0-LHy/2 

PRINT"Z[!!M««iia"TRE<TB>LEFT$( ^ 

'■ '■ " LN) 

PR I NT " a" TRB te ;■ PG$ ^ PR I NT " a" TRE •; TE > LEFTì: < •• •• ••• 

■■ ^ ••• ••, LH> 

PR I NT " m" TRB C 40-LEN C RU$ > > /2 > RU$ 

MS$= " BRTTI •' RETURN - PER ■' INIZI RRE " 

I FJFTHENMS$= " PREMI" IL " JO VSTICK PER -INIZI RRE " 
TB=< < 40-LEN <NS$;;'>/2> 

PR I NT " TRE C TE > MS$ : PR I NT " MUCttlcMilk - ' '' - 

•- ( C ) •-1983 •- THE " CODE '' WORKS " 

62070 GETI N$ : IFI N$<:> " " THEN62120 
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62080 IF < PEEK < JS)AND16 > =0THEH62128 
62090 PRINT '■ TRB TB>LEFT$( " K+1 >L 

EFT$<MS$..Q> 

62100 Q=Q+1 : IFQ>LEN<MS$;'THEHQ=0:K=1-K 
62110 GOT062070 

62120 CLR ; PR i NT " 21:<" ; G0SUB61000 : GOTO 100 





In Piano non avete praticamente niente da fare (tranne ovviamente inseri¬ 
re il programma!). Sullo schermo appare una tastiera ed un quadratino 
luminoso simula le dita del pianista che si lancia nell’esecuzione dei tre 
brani musicali memorizzati. Sedetevi in prima fila e ascoltate! Se poi vi 
viene voglia di modificare i brani o di inserirne di nuovi, ecco come fare: 
la musica è contenuta in istruzioni DATA, utilizzando una particolare no¬ 
tazione molto compatta e facilmente eseguibile, anche se non immediata¬ 
mente comprensibile (specialmente per un musicista, già abituato a ma¬ 
neggiare note e pause); tenete quindi presente che questo particolare me¬ 
todo non ha niente a che vedere con le normali notazioni musicali. 

In Piano le note sono indicate con le lettere dalla A alla X: ogni lettera 
differisce dalla precedente e dalla seguente di mezzo tono (per cui B è 
mezzo tono più alta di A e mezzo tono più bassa di C). La pausa è indica¬ 
ta dal simbolo @. 

Ogni nota è seguita da un numero che ne indica la durata in sedicesimi 
(semicroma); le crome devono essere quindi seguite da un 2, le semiminime 
da un 4, le minime da un 8 e le semibrevi (tempo intero) da un 16. 

Le istruzioni DATA devono inoltre contenere una coppia di virgolette sen¬ 
za niente in mezzo (stringa vuota) che precede un’istruzione di controllo, 
necessaria per far eseguire correttamente la vostra composizione; eccone 
l’elenco: 

"”,0 


fa eseguire il brano musicale da capo. Quando incontra questa notazione 
infatti il C-64 esegue un’istruzione RESTORE. 
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"”,-1 

segna l’inizio di un passaggio musicale da ripetere. 

- 2,"titolo”,colore 

segna l’inizio del brano musicale, "titolo” è il nome del pezzo e apparirà 
sullo schermo durante l’esecuzione; il parametro colore controlla lo sfon¬ 
do e deve essere il codice numerico del colore scelto. 


dove n è un numero positivo, indica che il passaggio precedente deve ve¬ 
nir suonato n volte. Il "passaggio precedente” è tutto quanto si trova tra 
il più vicino comando "”,-l ed il "”,n. Se nel brano non appare alcun 
—1 viene ripetuto l’intero pezzo. 

Il formato generico di un brano musicale può essere quindi il seguente: 
DATA "SCALA”,2 

questa istruzione segna l’inizio di Scala, con il rosso come colore di fon¬ 
do. 


DATA G,2,I,2,K,2,L,2,N,2,P,2,R,2,S,2 

che è la scala base in crome. Le lettere mancanti corrispondono a quei 
semitoni (tasti neri del pianoforte) che in questa scala non vengono suo¬ 
nati. 

DATA "”,2 

ripete la scala due volte, dall’inizio alla fine. 

DATA "”,-l 

segna l’inizio di un nuovo passaggio ripetitivo. 

DATA G,4,K,4,N,4,S,4 

fa suonare poche altre note, giusto per mostrare le semiminime. 

DATA "”,4 


ripete queste ultime note quattro volte. 
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DATA @,40 

fa una pausa di due tempi e mezzo alla fine del brano (16+16 + 8=40). 
Tutto insieme dovrebbe apparire così: 


DATA "”,-2,"SCALA”,2 
DATA G,2,I,2,K,2,L.2.N,2,P.2,R,2,S,2,"”,2 
DATA 1,G.4,K,4,N,4,S,4,’'”,4 
DATA @,40 


In ogni caso, che la musica sia vostra o del C-64, buon ascolto! 


CFIRflTTERI SPECIRLI UTILIZZATI 


SIMBOLI GRAFICI 
■ COMM T 


COMANDI & 
S RVS ON 
n CLEAR 
Il CRSR-L 
!il CTRL VEL 


COLORI 


I COMM H 

■ RVS OFF 
W CRSR-D 
4 CTRL WHT 
k CTRL CVN 


1 COMM + 

'fi HOME 
n CRSR-U 
■ CTRL BLK 
m CTRL PUR 


1 PG$= ■' ■■ PI AN 0" : flU$= "DI '-GLEH•-FISHER" 

5 REM COPYRIGHT tO 1983 THE CODE WORKS 

6 F?EM BOX 6905.• SANTA BARBARA.- UA 93160 

10 REM AS OF 8/15.-'83 GF 
90 GOTO 62000 

100 QI =7 • POKÈVIC+32 .-11; POKEVIC+33 .-11: GOTO400 

104 IFTI<TMTHEN104 

105 GETT$ : I FTì:<> " " THENPOKEVL.. 0 ^ POKESH+21.. 0 : END 
110 READNT$.. DR : I FNT$= " " THEM200 

140 NT=ASC ( NT$ > -64 ; POKESV.. 0 : POKEEH. 32 : EN=EX~EN : FQ 
=FX-FQ 

150 POKEFQ.. PC NT > : POKEEN.. 33 : TM=T I +3#DR 
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160 POKESH.. HP NT > : POKESV.. VP < NT > : POKESC.. CL < NT > : GOT 
0104 

200 IFDR=0THENRESTORE: PORI = 1T024;RERDX:NEXTI ; GOTO 
104 

210 IFriR>0THENRP=RP+l : IFRP<:riRTHEN300 
220 IFriR=-2THENREflri TL$..C;L 

230 RP=0 : FORI =Q0TOQ0+5 : SV <1-Q0 > =PEEK I ^ NEXTI 

240 IF riR<>~2 THEN 104 

250 POKESH+32 .■ CL : POKESH+33. CL 

260 PRI NT " - 

270 PRINT ""i".;THB<20-LEN':TL$;'/2>.iTLt 
280 FORI=1TO800:NEXTI 
290 GOTO104 

300 FOR I =i30T0Q£i+5 ■ POKEI.. SV < I --Q0 ) ■ NEKTI ^ GOTO 1 04 
400 CLR:NT=0:EN=0:FQ=0:NT$=""^ TM=TI:SV=0:DR=0:T$= 
" " : SC=0 : SH=0 FK=0 : EX=0 
4 1 0 G0SUB6 1 000 

500 SID=54272:FORI=0TO28:POKES10+1.0 :NEXT 

505 T=3* 16+2 : POKES 111+6.. T : POKES 111+13. T 

506 T=3# 16+7 : POKES IB+S.. T ; POKES IB+12.. T 
510 FQ=S 111+1 : EN=S I ri+4 ^ VL=S 111+24 

520 FX= (. SID+1 > + < SI Ii+8 > • EX= ( SI Ii+4 ') + (. SID+11 > 

600 SH= 13!t;4096 : SC=SH+39 : SV=SH+1 

610 POKE CRT+1016.. 13 

620 FOR I =832T0S95 : POKE I.. 0 : NEIKTI 

625 FOR I =0TO 11 : P0KF832+3i<« I .■ 255 : NERTI 

630 FOR I =0TO 11 : P0KE833+3* I.. 240 : NEKTI 

640 POKESH. 0 : POKESV.. 0 

650 POKESC .< 0 

660 F'UKESH+ 2 l .■ 1 • F‘OKESH+23.' 0 ■ F'iJKESH+29.‘ 0 • F'LiKEsH+16 
.. 0;pOKESH+27.. 0 
700 PRINT "nm" 

1000 I N=9 : WH~-3 : BL=5 : Q0=63 
1020 GOSUB2000 : PRINT"W!!]" ; : GOSIJB2000 
1025 PR I NT " SÌCT’. TfiB C 6 > ; " BFlTT I •- :-l?;ET!JRN*-' PER •- TERMI Nfi 
RE " 

1030 POKEFQ. 0 : POKE VL .• 15 
1040 PRINT"ia"; 

1050 X1 = 12 : X2=2080 : X3==FQ 

1100 DIM PC<24;:'..CL';;24>..HP';:24;;'..VP';:24;' 

1110 F0RI = lT012:REflDCLa> ;CLa + 12)=CLa> :NEXTI 
1115 HS=2ta/12> 
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1116 P=32:F0R 1 = 1 TO 24:PCa;:' = INT(P+.5> P-P*HS:HEX 
T I 

1 1 20 IlfiTfì 0.. 1 .. 0 .. 1 .. 0 .. 0.1 .. 0.1 .. 0 .. 1 0 
1170 POR I = 11024 ; VP < I > =97-80* ( I > 12 > -24* ( GL ( I=0 > : HE 
XTI 

1180 F0RI = 1T012:RERDP:P=P+8*IN+21+CL(I> HPa ;'=P 
1185 HP(I+12>=P:NEKTI 

1190 DhTH 8.. 20.. 32 .• 44.. 56.. 80.. 92.. 104.116.128,. 14 0.. 152 
1200 CiOTO 104 

2000 PRINTTRB a N ) ; " -1" 

2010 F0RI=1T0BL 

2020 PR I NTTRB IN); " Zi' ' ■ ■" •- - • - :*/ l-' • ■ • a ■ - - :«• ■ ■- • si " 

I" 


2030 

2040 

2050 

2060 

2070 

2190 

2200 

2205 

2210 

2215 

2220 

2230 

2490 

2500 

2505 

2510 

2515 

252G1 


2525 


MENTI 

F0RI=1T0WH 

PRiHTTRBaN) : "a-- - i"•- i-'■■ r •' r ’ r 

MENTI 

RETURN 

DRTR " -2" WILTSHI RE REEL ".. 6 

DRTR M.. 4.. D.. 4,. 1,4,. K.. 4.. .0.. 4D.. 4.. I.. 4.. K, 4.. N.. 8.. M.. 6.. 

M..2..M..4..K..4,.K..8 

DfìTRK..4..D.. 4..H..4.. !.. 4.. K.. 4.. D.. 4. H.. 4,. I.. 4.. K.. 8.. 0.. 6.. 
K..2,.K..4.. I..4.. I.8.. '“'..2 

DRTR" ".-1..P..2.. I..2.. I..2.. I..8.. I..2..H..4..F..4..F,.8,.H..2 
..H.2..H..2..H..8..H..2 

DRTRF.. 4,. D.. 4.. D.. 8.. P.. 2,. I.. 2.. I2.. I.. 8.. I.. 2.. H.. 4,. F.. 4.. F 
..6..F..2 

DRTRF.. 4.. N.. 4F.. 4.. H4,. I8.. I.. 8" " .. 2 
DRTflif!.. 140 

DRTR " " .. -2.. " SOGNO •- DEL -■ DIR VOLO " ,. 9 

DRTR 0.. 1.. T.. 1.. S. 1.. T.. 1,. 0.. 1,. T,. 1.. Sv 1.. T.. 1,. 0.. 1.. T,. 1.. 

s .< 1.. r.« 1.. u1 

DRTRQ.. 101.. 0.. 1.. L.. 1.. 0.. 1.. Q.. 1.. J,. 1.. Q,. 1.. 0.. 1.. Q. 1.. 
J.. 1..Q. 1 

DRTR0.. 1..Q.. 1.. J.. 1..Q.. 1..T.. 1..S.. l.-Q.. 1..G.. 1.. T.. 1..S. 1.. 
T.. 1..0.. 1 

DRTRT. 1..S.. 1..T.. l.-O.. l-.T,. 1..S.. l .T,. 1..0.. 1..Q.. 1..0. 1.0 
.. I.L.. 1 

DRTR0. 1.. Q.. 1.0.. 1.. 0.. 1.. L.. 1.. T,. 1, H.. 1.. E,. 1.. C.. 1,. H.. 1.. 
H.. 1..G.. 1..H..3.. J.. 1 

DRTRL.. 1.. 0.. 1.. H.. 1.. 0.. 1.. L.. 1.. 0.. 1.. H,. 1.. 0.- 1.. L.. 1.. 0.. 1. 
H. 1.0.. 1 
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'=i3Pi 


2535 



2546 

2550 

2590 

2600 


2605 


2610 
2615 


2620 


2630 

2635 

2640 

2645 

2650 


DHTfìQ.. 1 ,.0,. 1..L.. 1..Q.. 1.. J 

.. 1 

DfiTftM.. 1. J.. 1..Q.. 1..S.. l .Q,. 1, L.. 1.. 

H.. 1 

DRTfiL.. 1.. 0.1H. 1.0.1.. L - 10.. 1 .■ H.. 1.0.. 1T.. 1 .• S . 1.. Q 
.. 1.. 0.. 1 

riflTflH,. 1.. Q,. 1.. 0.. 1.. ri. 1.. L.. 1.. j.. 1. H,. 1.. E.. 1.. c.. 1.. H.. 1.. 

H. . 1..H..3 

rifiTR"".= 2 
DRTfì0 .. 11"!. 40 

DfìTR " " -2.. " TRRRHTELLR ■■ SICILIRNR " 5 

DRTRF.. 1..H..2.. I..3.K.. 1. I..2..H.3.. !.. 1..H..2.F..4..M..2..H 

..4..M..2..H..4..r'1..2..H..4..M..2 

DfiTRI..2..H..2.F..2..fl..2..F..2..H..2.. I..3..K.. 1.. I..2..H..3.. I 
.. 1.. H.. !.. F. 4.. M.2.. H.. 4.. M.. 2 

nRTRH..4..M..4..H..2.. I..2,.H..2..F.. 10,. N.. 1M 1.. K.. 2.. H.. 2.. 

I. .2..K..2..M..2..K..2. I..2..F..2 

];iRTRH..2.. I..2..K,.2. I..2,.H..2..E,.2..F..2..H..2.. I2,. K.. 2,. fi 
..2.. I..2..F..2..M..4..N.. 1 

DfìTRM.. 1..K,.2..H..2. I..2..K..2..ri..2..K..2.. I..2..F..2..H.2. I 
..2.K..2.. I..2..H,.2.H..2..ri.2 

DRTRK.2. I..2.H..2..F.. 12.. S. 0.. R. 12.. S,. 0.. R,. 10.-N.. 2.. !1. 
2..H.2..t1..2,.K..2.. I..2..H..2..H..2 

DRTflM2. I..2..F..6..S..0..R.. 12..S..0..R. 10.. M.. 2.. M.. 2.. N.. 2 
..M..2..K..2.. I.2..H..2..F.. 10 

DRTflri..2..H2..P..2..f1..2.. I..2..P..2.ri.2.. I..2..P..2..ri..2.. I 
..2.P..2..R..2..P..2..N..2..M..2..K.2 

r!RTRH..2..M..2..K..2.P.2..ri..2.. I..2.. 1.4.11 1..fi 1..P.2..M 
..2.. I..2..P..2..M2.. I..2..P..2 

riRTfiri2.. I..2..P..2..0..2..P..2..T..2.R..2..P..2..fl2..fl.2..K 
.* df I è 


DRTfì"" 


3999 DRTR@.. 1.. 0.. 40.. " ",. 0 
60000 IH$= " " : 2T=T I : 2C=2 : ZD$=CHR$<20;• 

60010 GET2$ : I F21<:> " " THEN60070 

60020 I F2T<=T ITHEHPRIHTMI 1" .. ZC,. 1 > .. " II" .; ; ZC=3-ZC 

:ZT=TI+15 
60030 GOTO60£i 10 

60070 Z=RSC < Z# ) : ZL=LEN a ^ IF < ZRHn 127 > <;32THENPR I NT 

" •■'H".; : GOTO60110 

60090 IFZI_••■yl rHEN600l0 

60100 I m= I N$+Z$ ; PRI NTZt ; ZDlZ$ ; 

60110 IFZ=13THEHIH$==MID1<IN#.2) :PRINTCR$; : RETURN 




PIANO 43 


60120 I F2=20l=lNriZL:> 1THEH I m=LEFlt- < I m .. ZL~ 1 ;• ^ PRI NT " I!" 
; ^001060010 

60130 I FZ= 141 THENZ$=C;HRf -20ifi < ZL> 1 > ) F0RZ=2Ti:iZL ^ PR I 
NTZ$.: ^NEXT :GOTO60000 
60140 G 0 T060010 

61000 CRT= 1024 ; VI C=53248 • Wri=40 : CR$=CHR$ < 13 SI D=542 
72 : .JS=56320 : CN=55296 
61010 QL=214 :QI=254 : RETURN 

62000 G0SUB61000 : POKEVI C:+32.. 0 : POKEVIC+33.. 0 : LN=LEN ( P 
G$) : TB='::40-LN;:'/2 

62010 PR I NT " neMsnma" TRB < TB > LEFT$ " •- - 
LN> 

62020 PR I NT " a- TRB aB ) P0$ ; PR I NT " S" TRB ( TB > LEFTI: < " • 

62030 PR I NT " Wifl" TRB 40-LEN •: RUf ;• > /2 > RU$ 

62040 r-1S$= " BRTTI •- RETURN •- PER -■ INIZI RRE " 

62045 IF JFTHENMS$= " PREM I ■-1L ■- JO VSTICK " PER INIZI RRE " 
62050 TB= (e:40-LENa-1S$>>/2> 

62060 PR I NT ■’ TRB C TB ;• MS^ •• PR I NT " WpMijIpMiJK - •- •- 

< O 1983 THE CODE '' WORKS " 

62070 GETIN:^ : IFIN^<> " " THEN62120 

62080 IF PEEK C JS ) RND16 > =0THEN62120 

62090 PRINT"TRB< TE> LEFT#C " :;ik" . K+1 >L 

eft$';:ms#..q> 

62100 Q=Q+1 : I FQ:>LEN C MS$ > THENQ=0 : K= 1 -K 
62110 GOTO62070 

62120 CLR PR I NT " nal" : G0SUB61000 ; GOTO 100 





Scommessa 



Scommessa è il classico gioco della carta più alta, nel quale viene distri¬ 
buita una carta ciascuno in modo tale che tutti possano vedere le carte 
degli altri ma non la propria; ogni giocatore getta la sua puntata nel piat¬ 
to e chi ha la carta più alta vince il gruzzolo (tenete presente che l’asso è 
la carta più alta di tutte). L’azzardo sta chiaramente nel dover puntare 
prima di vedere la propria carta. 

Ciascun giocatore inizia la partita con 200$ di puglia; all’inizio di ogni 
mano viene prelevato dal gruzzolo di ciascuno un invito fisso di 10$ e la 
puntata minima è di 5$. Voi potete accettarla (premendo RETURN), pas¬ 
sare (battendo 0) o rilanciare, per non più di 25$. Quindi se la puntata di 
un altro giocatore è stata di 10$, voi non potete puntare più di 35$; in 
ogni caso appaiono dei chiari messaggi d’errore quando tentate di bara¬ 
re. Se passate la mano ovviamente perdete tutto quanto avete già messo 
nel piatto in quella stessa mano e, nel caso scopriate poi di avere una 
carta vincente, potete solo mangiarvi le mani. 

Se due giocatori hanno la stessa carta vincente, la mano termina pari e la 
vincita viene divisa tra i due (l’eventuale resto rimane nel piatto per la 
mano successiva). Il gioco termina quando uno dei giocatori salta, rimane 
cioè al verde; il vincitore è ovviamente quello col gruzzolo più alto. 

In Scommessa giocherete contro tre avversari, tutti comandati dal C-64, 
scelti tra sei possibili: Burt, Edna, Fred, Jack, Kirk e Lucy; poiché ognu¬ 
no di essi gioca con una strategia diversa, vi ci vorrà un po’ di tempo per 
imparare a giocare contro il C-64; vi auguriamo comunque buona fortuna 
(perché solo di questa si tratta!). Se poi volete modificare l’invito, il limi¬ 
te del rilancio o il capitale iniziale, basta cambiare la linea 110; le varia¬ 
bili usate sono le seguenti: 
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WAD: capitale iniziale 

ANTE: invito 

LIMIT: limite di rilancio. 


Un’ultima avvertenza: nella routine di presentazione standard deve esse¬ 
re inserita la linea 60025. 


CfiRfìTTERI SPECIRLI UTILIZZATI 


SIMBOLI GRAFICI 


r SHIFT £ 

1 

SHIFT T 

1 

SHIFT H 

- SHIFT ^ 

t 

SHIFT Q 

♦ 

SHIFT Z 

♦ SHIFT S 

\ 

SHIFT M 

/ 

SHIFT N 

^ SHIFT X 

— 

SHIFT D 

V* 

SHIFT K 

SHIFT J 

1 

SHIFT - 


SHIFT F 

_ SHIFT R 

1 

SHIFT E 

0 

SHIFT W 

♦ SHIFT A 


COMM W. 


COMM e 

“ COMM V 

■ 

COMM C 


COMM T 

m COMM + 

1 

COMM G 


COMM E 

" COMM U 

1 

COMM M 



COMANDI & COLORI 





SI RVS ON 

■ 

RVS OFF 

-fi 

HOME 

□ CLEAR 

W 

CRSR-D 

n 

CRSR-U 

il CRSR-L 

n 

CRSR-R 

n 

CTRL VEL 

:< CTRL WHT 

k 

CTRL CVN 


CTRL PUR 


:: COMM VEL 


1 PG$= " S C 0 M'■ M E S■■■ S • A : HU$“"DI •'RfìHDALL LOC 
KWOOD" 

4 : 

5 REM COPYRIGHT (C) 1983 THE CODE WORKS 
b REM BOX 6905.. SANTA BARBARA.. CA 93160 

-•7 

1’* 

10 REM AS OF 8/15,-'83 


GF 
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REM EIiIZIOHE ITfìLIfìNfi : EDI6E0 19S4 
GOTO62000 

QI =7 : POKEVI C;+32.. 0 ^ POKEVIC+33.. 11 
DEFFHR < I > = I NT RND C TI > M I > +1 
WRri=200 : FIHTE= 10 : LIMI T=25 
T=RNri(;-TI 

CR$= " " : BD$= " NON HRI - QUELLR ' CIFRR ! " 
bimn$(:7>..k<3)..m::^<4>.w;;(4>..E';4>.s:^'::4>.. V4(4> 
EVE=CRT+357 

Il .*• / .*• / .*• .** / X / . X .■ Il 

DIMP<;4).L1';:7).L2':;7>..L3(7> 

F0RI = 1T07 : RERDN$< I > . LI U > L2< I > L3< I > : NENT 

riRTRJRCK14.. 10.9. EDNR -.14.9.8. BURI .14.9.7. KIRK 

. 13.8.5.LIJC:V. 14.8.4 

DRTRFRED.13.8.4.TU.0.0.0 

RK$="23456789XJQKR" 

p.:;4>=7:p<l>=FNR(6> 

P<2>=FNR':6> : IFP<2>=Pa>THEN380 
P(3::'=FNR<6) : IFP<:3>=P':: 1 :'ORP';:3>=P':;2>THEN400 
PRI NT " □" : FORI = 1T03 : PL=P < I ^ PRI NTDtSPC < 11 I -4 > 
:GOSUB1025:NENTI 

PR I NTri2$ " ar" : FOR I = 1TO16 : PR I NT " ; : NENT : P 

RINT’”^" 

PR I NT '• ••• • isr ": FOR I = 1 TO 17 : PR I NT " - •- ": NEXT : PR I NT 

Il *1||ll 


480 PR I NT " ri- Sr " ; ; FOR I = 1 TO 18 ^ PR I NT " ' •- "^ NEXT : PR I NT 
490 PR I NT " :-r" : FOR I = 1 TO 19 : PR I NT " - •- " : NEXT : PR I NT " 

500 PR I NT " ::sn". : for i = i TO 20 : pr i nt ■■ -■ ": next ; pr i nt 
510 PRiNTri2$"waa"SPC<7>N$';:pa>>sPC'::7>N$<p<2>>spc(: 
7>N$<P<3>> 

520 FB= I NT < RND < TI *3+-1 
525 FOR I = 1T04 : MX I > =WhD : NEXT : GOSUB1580 
530 PR I NTX$E$" -■ - - " •• PR I NT " n:L INVI TO •- E -■ $ " MID# < 
STR$'::fiNTE>.2) 

535 GOSUB1260 :PRINTX$E$ 

540 FORP= 1T04 ^ IFMX P > CRNTETHEN1860 
545 NEXTP 

550 FOR I == 1T04 : B < I > =-1 : Q=Q+fiNTE : MX I > =MX CI > -RNTE : N 
EXT:GOSUB1580 

560 SX a > =FNR 4 > : VX C 1 > =FNR < 13 > 
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990 
1 000 

1010 

1020 
1025 
1030 

1040 

1 050 

1060 

1065 

1070 


FORI=2704 

S‘; a > ==FNR (A ) ■ V'- < I > =FNR ( 13 > 

FOR j=1 To I -1:1 Fs;-i a >=s;'; ( j > rndv^; ( i> = v'ì j > theh575 
HEXTJ:HEXTI 

FORI = 1T03;PRINI"TRE<11*I-3>; :GOSUE2000:HEXTI 
PB=1:F=0:E=0:CL=0 
FB=FB+1:IFFB>4THEHFB=FB-4 
P=FB 

P=P+1:IFP>4THEHP=P-4 

ob=B';:p::' : ifob=0Theh900 

IFP=4THENGOSUE1270:GOTO350 

I FM“; ( P ) <=0THEHB C P > =0 : GOSUE2500 :0010350 

I FOE!<0THEHGOSUl!2200 ■ GOT0850 

G0SUB2100 

i FE P > =BRHriE>0THENCL=CL+1 
IFB(P;'>ETHENCL=1 
IFE(P::.=:0THEHF==F+1 
IFOE<0THENOB=0 

IFB ( P > >0THENQ==Q+B < P > -OE : P ;■ P > -B ( P > +0B 

IFE<E(P)THENB=:E(P> 

GOSUB1580 : GOSIJE1260 
ÌFF+i::L<;4fHEH760 
PRIHT:K$E$ : PE=0 

PR I HTri2|: " :t!Mi!Mtì!!LR TUR •- CRRTR " TRE ( 24 > " TTIS_ -dii 

111"; : I=4:GOSLIB2000 

GOSUE1260 : GOSUE1260 ^ PR IHTD2T " flM?»!»®!!'' Et- 
PR I NTri2$ " :cM«" TRE < 24 > "ZV ■- [«IIIC: " •- 

’cllll'' 

PR I NT " ci ": FOR I = 1T06 : PR I HTEì: " •- - •- " : NENT : PR I HTN$ 
Et 

GOSUE1670 :GOSUE1260 ^ GOT0530 
ONPLGOTO1030.. 1050.. 1070,. 1090.. 1110.. 1130 
PR I NT " •- •• =;?!■■■■»=■••■ ■- -1 

- ■•■■■■■■■ •■■pJiHKir'.; 

PRiNT-'iniisi- - •■rBiiiild---' 

^ RETURN 

PR I NT " rdidi-didrapiiiini^fd zv ■■ zi" mm 

‘ - :0!lllBIBIt ' : 

PR INT " iti V iti:i!iiiBiBif"^tì-' ** ■■ .; 

PR I NT " :T-._.<(!lBBBBir4"f_ 

": RETURN 

PR I NT " - \jlBBiiBI \ZWr-- rvm rTQlBBBBBi"' -- SIBBBS 

IBIC -' "I "• LsilHiBBil-'-’-^PlBI".; 
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10S0 
1090 
1100 
1105 
1110 
1120 
1125 
1130 


1140 


1150 
1160 
1170 
1180 
1200 
1210 
1220 
1230 
1240 
1260 
1270 
1275 
1280 
1285 
1290 
1295 
1300 
1310 
1330 

1340 

1350 

1420 


PRI NT ■■ iiiK ••• - • ..••"Tmiiiiiiirx-- \ - 

" " : RETURH 

PRiNT"/—\:«iiiiBii II a-••••■Il ;(!iiiiiiBi isr---’^ ;« 

iiiiiiii" ; 

PR IHT " a< -■ " I > :e!1Iiibbi-' •- -l - •- iniiiiiB^a-' - - ■rdiiiii 

li * 

PRIHT" —-.jlBIIIilBBI ••■ ••■ ••■ I ••■ 

• I" : RETURN 

PRIHT"./-••'vHiniUIII !•■ ZV ••■ ••■■ 

IIBBIII" 

PRINT" i- a- “I •••■■ [t5iBBiBBBK:T-'--'-^-'••■■-•• :«!iBBBBBna ■•--•■ 

■TpIIBBI" : 

PRINT" a-._/:«!lBBBBBIrr., ..-w-.... ’YpBBBBBBBBII. ..io !.. 

.": RETURN 

PRINT" rr=- ='^i!lBBBBÉi0--^liselBBiiiSC •• " l”-^ >:(!lBBflBBig 
■^a-' Vi "•■■rPlBBBBBia--'..••••■-••••.. 

PR I NT " iBBsna ^:!!iBBBBiar-'w-"';piiiSifflBir ••■ ••••...••■■. ••••.../••■ 

'^:i!1bibbbibbi-' •- •- . " • return 

RETURN 

IFRND<1)>.04THENRETURN 

E1=EH-1 /IFE1==4THENE1==1 

E==FNR(8) : IFE=1THENEG=^251 : GOTO 1240 

IFE^2THENEG:=254 : GOTO 1240 

IFE“3THENEG"236: GOTO1240 

IFE=:=4THENÉG=173:00101240 

EG-252 

E^EVEh- 11 ^E 1 : POKEE.. EG ^ POKEE+2.. EG : RET URN 
FOR2“1TO90:GOSUEl160•NERT ^ RETURN 
GE I I NT : IF i NTO " " THEN1270 
PRINTRTET : PRI NT "riimiftliliBSJUHNTO•-PUNTI •/" 
GOSUB60000 ■ E •; 4 > = VAL < I NT > 

IFLEFTT I NT.. 1 " Q "THEN 1430 

IFINT= " " RNDE-::>=0THEN 1270 
IFI NT== " " THENB ( 4 > ■ PR INTE 

IFE(4;:'=0THENRETURN 
PR I NT " n 

IFE<4 >TETHENPRINTET : PR INT ":T_fl•- PUNThTH•-E - - "B : G 
OSUB1260 ■ GC'TO 1270 

I FÉ (4 >-É>L ITHENPRI NTET ^ PR I NT " "1.1MI TE •'RILhNC 10 
••' T "LI • GOSUE12601 : GOT O 1270 

IFE(4>>M;-;<:4 ) THENPR INTETCRT • PR INT "T'BET ■ GOSUE 1 

260■GOTO1270 

RETURN 
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1430 PRI NT " .'leftJHR I •- LhSC IRTO •-1L GIOCO •' CON " .. f'I’i ( 4 > ; " DO 
LLRRI": END 

1580 PR I NTK$ " ^ HR i " $ " MI < STR$ c M?-; •: 4 2 > ; " 

Il 


1590 
1600 


1610 
1620 
1630 
1635 
1640 
1650 

1670 
1680 
1690 
1 700 
1710 
1720 
1730 
1750 
1760 
1780 
1790 
1810 
1820 
1830 
1840 
1850 
1860 


1870 

1880 
1890 
1895 


1900 


1910 

1920 


PRINTri2f ; "H" :pRINT'‘>i|iÌÌÌI" ; 

POR J= 1T03 : PR INTTRE C 11 * J-4 > ; " $ " ; M ! ri$ t STRS: C ( J 
:0..2> ; NEKT SPRINT 

PRINT"«ÌÌ»iaal"E$.i "T- : PRINT" aF'UNTRTR" 
F0RJ=lTi:i3 ; PRINTTRB*:: 1 lif J-4) ; " Si" ; 

IFE< J>>eRNEPB>0THENPRINT"f "MID$CSTR$<ECJ> >.. 2> ; 
IFB <; J > =0RNriPB>0THENPR I NT " •- —" ; 

NEXTJ 

PR I NT : PR I NTTRE ( 13 > " 7C:sP IRTTO ; -■ •- •' •- ••• Blll||||: " MI 

E4jC 5TR$(Q> .. 2> ; " al" : RETURN 

F0RI = lTn4: W"-':;i>=0:NEXT 

FORI = 1704 :FORJ=1T04: IFJ=ITHEN1710 

IFB<I><=0THEN1720 

IF V’; ■: I > >=v:^ ( j ) ORE < J ;• =0 Thenw^: < i > ( i >+1 

NEXTJ 

NEKTI 

PRINTX$":*''INCITORE: i : NW=0 : FORICIT04 

IFW‘;(I><;3THEN1790 

NW=NW+1 I FNW> 1THENPRI NT " E •' " ; 

pRiNTN$';;p<i>>; 

next:w=int(:q/nw> 

PR 1 NT " MI D$ < STR$ ( W ) . 2 > : J= I NT < Q/NW ) ^ PR INTE^ 

FOR I=1T04:1 Fw:^ a >=3 Thenm;i: a >=M4 < i >+.t : q=q-- j 

NE:KT ; GOSUB1260 : GOSUB15S0 

FO=0 : FORF -1T04 ; IFM?-: < P > O0THEN1860 

NEXT: RETURN 

I FP=4THENPR I ìiTK$ E$ : PR I NTK$ " SlBE I ■- RL •- VERDE ! " : G 
OSUE1260 :GOT01890 

PR I NTK$ ; E$ : PR I NTX$ ; N$ ( P <; P > >” - E - •- RL ' VERDE " ^ GO 
SUB1260:pRINT:=::f.iE^ 

OOyUB1260 

1 = 1 : FOR J=2 TO 4:IF M;;< J)>M';< I > THEN I=.T 
NEKT : PR I NT " mm L " VINCI TORE '' E •- " ; N$ C P C I > > " •- CON 
MIDI: ■::STR$<M“i< n >.. 2> " 

PR I NTK$ ; E$ ; PR I HTA-$ " GIOCHI •- RNCORR? ' " ; : GOSUB600 
00 

I FLEFT$ < I m, 1 O " N " THENPR I NT " □" ^ CLR ^ GOTO 100 
PRINT":i?Mi!W" :END 
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1930 

2000 

2010 

2020 

2030 

2100 

2110 

2200 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2325 

2330 

2340 

2350 

2370 

2500 

2505 

2510 

2520' 

2530 

2540 

60000 

60010 

60020 


60030 

60070 

60090 

60100 


PRINTK$":i®!HfiI •■■$"Miri$':STR$'::M4<4> >.. 2> ; " ^ ' " : 

RETLIRH 

v^=mid$';:rk$.. v’;< I >. 1 > : iFv;i:a >=9 thehv«:=" 10" 
PRINTLEFT$':: " a"+V$+" -■ " " .4;' " mMV •' - Miil " " ; 

pRiHTMiri$':: .. s:-;( i >. i > ; - ;?iìbp - •- •mììi" ; righ 

RETURN 

I FB<=M:^ ( P :• +B P > flHDB<=3#K < P :■ #B P > THENB ( P > =B ^ GO 
TO2500 

B ( P ■' =0 • GOTO2500 

F1=0 :F2=0;F3=0:FORI = 1T04: IFI=PTHEH2250 
IF V;ì < I >=L 1 ( P C P > > THEHF1 = 1 
IFV:^< D>L2<P<P:> >THEHF2=1 
IF V"; < IXL3 P •; P > > THENF3=F3+ 1 
NEXTI 

IFF1 = 1THENB C P > =0 :FO=1 :GOTO2330 
I FF 1 =0fiNriFi:i= 1THENK C P > =3 •• G0T02310 
I FF2= 1 THENK C P . 5 ^ G0T02310 
I FF3=3THENK P > =2 ; G0T02310 
K':;P> = 1 

K=K'::P) ; B'::P) = INT'::2ìP«K*'::5+RND(: 1 > > > 
IFB<P»riX(:P>THENB(:P>=MX(P> 

IFB<P-B>LIMIT THENBCP> =B+LIMIT 
IFBO0THEN2500 

I FB < P > <:E/30RB>MX P > THENB •; P > =0 : GOTO2500 
IFB(P ><1.8#BTHENB C P > =B•GOTO2500 
I FB <; P > >B+MX P > THENB < P > =B+M’; < P > 
IFB':;P>>MX'::P>THENB(P>=M*ì<P> 
PRINTX4:EmN$<P(P)>; 

I FB < P >EfiNriB>0THEN PRI NT " '' RI LfiNC I fi •- fl " ; E P > : RE 
Tl.lRN 

I FB < P =0THENPR I NT " PfiSSfi. " : RETURN 

I Fi:iE>0fiNriB < p >obthen pr i nt •• •- vede . ■■ : return 

PRINT" ^ PUNTfi- t" ; Miri$<;STR$-::E-;:P> . 2> : RETURN 
IN$=" : 2T=TI : 2C=2 : 2Iìf=CHR$(20> 

GET2$:IF2$<>""THEN60070 

I F2T<=T ITHENPRINTMI D$ v " " . 2C. 1 > ; " II" ; : 2C=3-2C 

:ZT=TI+15 

GOTO60010 

2=fiSC(2^> :ZL=LEN<IN$> : IF(:ZfiND127K32THENPRINT 
"''II"; :GOTO60110 
IFZL>QI THEN60010 
I m= I Nf+zt ; PR INTZ# ; ZBt- ; z$ ; 
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60110 I FZ= 13THEHI H$=M 1 1\$ I m , 2 > : PRI HTCR$: RETURN 
60120 IFZ=20RNriZL> 1THEHIN$==LEFT$ ( IZL-1 > : PR INT"11" 
;:GOTO60010 

60130 I FZ= 141 f HENZ$=CHR$ < -20;^ •: ZL> 1 ) ) : F0RZ=2T0ZL • PR I 
NTZT;:NENT:GOTO60000 
60140 G 0 T060010 

61000 CRT=Ì024:VIC=53248:ND=40:CR$=CHR$(13):SID=542 
72 : JS=:56320 : CM=55296 
61010 QL=214:QI=254:RETURN 

62000 G0SUB61000 : POKEVIC+32.. 8 : POKEVIC+33.. 0 : LH=LEN C P 
G$) :TB=(:40-LN)/2 

62010 PR I NT " n?I?MPJ7JSI" TfiB ( TE ) LEFTt C " •' •- 
"..LN) 

62020 PR I NT " a" TfiB < TE ) PGi: ; PR I NT " 3" TfiB ( TB ) LEFT$ C " ■- 

62030 PR I NT " Mifl" TfiB < C 40--LEN ( fiUT > ) /2 ) fiU# 

62040 NS$="EfiTTr RETURN ••'PER - INI ZI fiRE" 

62045 IFJFTHENr-1S$= " PREM I IL •' JOVSTICK PER INIZI fiRE " 
62050 TB=':; '::40-LENaiS#> )/2) 

62060 PR I NT " KflMPk" TfiB C TB ) MS$ ^ PR I NT " WìIuMUMaK - •- •- ■■ •- " •- ' 
( C ) 1983 THE CODE ■■ WORKS " 

62070 GETINf: IFIN$<>""THEN62120 
62080 I F ( PEEK US)fiND1 6 ) =0THEN62 1 20 
62090 PR I NT " TfiB ( TE ) LEFT^ < " ilk" .. K+1 ) L 

EFT$<NS$..Q) 

62100 Q=Q+1 : IFQ>LEN C MS$ > THENQ=0:K=1-K 
62110 GOT062070 

62120 CLR SPRINT " □al" ; G0SUB61000 : GOTO 100 





Se volete iniziare la carriera di scassinatore professionista, ecco qua un 
ottimo strumento di allenamento! Dovete cercare di aprire la cassaforte 
simulata dal C-64, in meno di due minuti. Basta utilizzare il joystick per 
girare la manopola della combinazione, spostando la leva verso destra 
per farla ruotare a destra e viceversa. Una volta trovata la combinazione, 
premendo il pulsante si aprirà la porta del forziere. 

La combinazione della cassaforte è composta da 4 numeri; destra per il 
primo, sinistra per il secondo, poi ancora destra e sinistra; girando la 
manopola sentirete un "click” a ogni numero che passa: quando arrivate 
ad uno dei numeri giusti, il "click” è doppio e sulla porta compare una 
sbarretta verticale. Attenzione però a non oltrepassare la cifra esatta, 
perché in tal caso le sbarrette scompaiono e voi dovrete ricominciare tut¬ 
to da capo. Ottenute quattro sbarrette, premete il pulsante ed i vostri 
sforzi saranno premiati in oro e biglietti di grosso taglio! 

Se invece, malauguratamente, non ce la fate in due minuti, l’antifurto 
scatterà automaticamente e verrete trascinati in prigione dalla squadra 
anticrimine... 

Lavorate in modo veloce ma accurato; non fatevi prendere dal panico e 
soprattutto non desistete! 
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CfìRfìTTERI SPECIALI UTILIZZATI 


SIMBOLI GRAFICI 


- SHIFT W. 

1 

SHIFT 

- 

1*’ 

SHIFT U 

SHIFT I 


SHIFT 

J 


SHIFT K 

• SHIFT Q 


SHIFT 

N 


COMM + 

■ COMM D 

m 

COMM 

I 

■ 

COMM F 

1 COMM K 

■ 

COMM 

C 

m 

COMM V 

r COMM A 

T 

COMM 

C* 


COMM li! 

1 COMM M 

1 

COMM 

G 


COMM T 

COMM Z 

J 

COMM 

V 


COMM # 

T COMM R 

■1 

COMM 

0 


COMM V 

COMANDI & 

a RVS ON 

COLORI 

■ 

RVS 

OFF 

» 

HOME 

n CLEAR 

gì 

lrsr~ 

D 

n 

CRSR-LI 

Il CRSR-L 

m 

CRSR- 

R 

a 

CTRL WHT 

k CTRL CVN 

m 

CTRL 

PUR 

.71 

CTRL VEL 

1 PG$="-C 

■•■A'S-S''A" 

F-'O-'R- 

T-E- 

" ■•RU$="DI - GRRV -MhF 


A":JF=1 


5 REM COPYRIGHT O::;' 1983 THE CODE WORKS 

6 REM BuX 6yo5.- bAHlA BARBARA- CA 93160 

10 REM AS OF 8/16/83 GF 

50 REM EDIZIONE ITALIANA: EDIGEO 1984 

90 GOTO 62000 

100 DIM JD C 15;;-: POKEVIC+32.0 : POKEVIC+33.. O : C$= " 

Qli*Ì»ÌÌÌÌÌK|iÌÌÌIi»ÌÌÌI" 

101 FORI =0TO 15 : READJD CI > : NE/T : DATA0.. 0.. 0.. 0.. 0.. 3.. 9.. 6 
.1 0 •> 1 .* (' ^ 40 f li! .1 8 ) 5 

102 DEFFN J •: / > = JD C PEEK C JS+/ > AND 15): DEFFNB •:/) = •:; PEEK 
<JS+/)AND16)=0 

103 FOR I=0TO28 : POKESID+1.. 0 : NE/T : POKESID+6.. 240 : POK 
ESID+4.. 1?: VL=SID+24 
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VM=CRT:CM=13.5*4096 :POKEVIC+33.0 :POKEVIC+27,0 
riIM HT<l:l)..riRai:;':Fi:iR I = 1 TOll-REflD NTa)..N:D 
Ra)=H*7:NEXT 

DfiTfì 1.1,. 6.. 1 .. 10.. 1.. 6 .. 1.. 1.. 1.. 6 .. 1.. 1.. 1.. 3.1.. 
6.. !.. 5.. !.. 6.. 1 

P=20:FOR 1 = 1 TO 10;pT(:i> = INT':;P+.7> ;P=P*2t'::i/l 
2):NEKT 
GOSUB 1900 

S0=S IB+1 : S=255 : POKEVL.. 7 : POKES0.0 
POKEV IC+33.. 0 : POKEV IC+21.. 15 ^ PRI NT " : 

FOR I =0TO 17 : PRI NT " SI-' •- " ■- •- x ^ 

" X H M|g|X|,M ; 

T$=" a- ■■ : T$=T$+T$+T$ : T$=T$+T$+T$ : L$=" a-'lll'" 

Il • " g ■■ " 

PRI NT " rs" : FOR I = 1T03 : PRI NTT$ R$ ■ PRI NT " Hil" T$ ; L 
$:NE>a :pRINTT^;R$; "S" 

PR I NT " TfiB 17 > " a m " : PR INTTRE < 17 > " I ■- 


PR I NTTRE 17)" a -3" 

FOR 1 = 1 TO 17 : PR I NTTRE vi 0 ) ; " a-' •- - 
•• • " : NENT : PRINT"ii!!MiS" 

PRINTTRE<: 11 > " a I-1 " 

PR INTTRE11 ) " a i " TRE<23) "" 

PRINTTRE< 11 ) " a I " TRE( 28> " E-' " 

FOR I = 1T03 ; PR I NTTRE 11 > " a I " ; TRE ■: 28 ) ; " I " : NEXT 
PR I NTTRE a 1 )" a I US" ; tre ( 28 > " I 
PRINTTRE< 11 ) " a mi " ; tre*:; 28) " I 
pRiNTTRE<ii>"ai - ■".iTflB(28)" I";TRE<36); "r;ia_:3 
PRINTTfiB(ll>"ai-- IbwSr ".;TRB(28>" 1" ; TRECBS) ; 
a Stai 23 

PR I NTTRE 11 )"a i".: TRE-: 28 >" I " TRE < 35 ) ; " ITia 53 

PR I NTTRE < 11 ) " a I "TRE < 28 ) " I " ; TRE < 36 ) ; " :ia“ 

PR I NT " a-»I53 I " TRE ( 28 ) " » ' USTia-HI" 

.:CHR$(20> i "•-«§- 

PR I NTTRE (11);” 533 I "SPC (16) " l ' " 

PR INTTRE( 11 ) " a '-' " ; TRE(37) .; "7» 

,Hlll-53 

F RI NTTRE (IO)" a_" ; TRE ( 34 ) ; 

",TBfc=r3a-n-' 

PRINTTRE(11)"53^a - W" : TRE(26) " ’^a-’ W 
PRINTC$".^1lia ■■■iiMinii VlBllMillI :« .'QlIBBIII EÈmmmm 


SR=CRT+6*WD+23: L=0 : GOSUB1000 : R=-l: V=0 
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355 U1 =42 : IJ2=41 : U3=ò4 

360 FORI = 1T04 : C < I > = IHT ( 50;^RND U ) > : NEXT 

370 C;0$= ■■ " : FOR I = 1T04 : S$= " D " : IFI /2= I HT C I /2 ;■ THENS$= 


330 C0$=C0$+S$+N I D$ < STR$ •: C U > >,. 2 > : IFI <4THENC0$=C0 
390 HEKT : K= I HT < 49ifRHD (1 ) + ! ) 

400 FORI = 1T02:FORJ=0TO49:PRIHTC$; : IFJ<10THEHPRIHT 

»l • Il • 


410 PRIHTJ"IB- " :HEKT:HEXT 

420 FOR J=0TOX : PR I HTC$ ; : IF J< 1OTHEHPRI HT " •- " 

430 PRIHTJ"ir" :HEXT 
440 TL=7 140 :TI$=" 000000 " 

450 Z=IHT((7200“TI)/60+.5>:T=IHT(Z/60>:QT$=MI<S 
TR$< 1000000+T*100+Z-60;+iT>3) 

455 PR I HT " aKI" TflB ( 18 ) MI D$ ( QT$.. 4.. 1 " RI GHT$ ( QT$.. 2 ;• 

460 IFV= 1 THEHL=L+1 ^ GOSUB1000 : F'=HOTR : V=0 ^ GOSIIB1050 
470 T=PEEK< JS >fìHB12:1FT=4THEH900 
480 IFT=8THEHS10 

435 GETE$ • I FE|:= " Q " THEHL=0 : GOSUB 1000 ^ GOTO 1300 
437 IFFHE 0 ) fìHriL.==4THEH735 
490 IFTI■-T<TLTHEH450 
5 0 £1 L=0 : G 0 S U B10 0 0 

505 FOR I = 1TO60 ^ POKES0.. 80 : FOR J= 1TO10 ■' HEKT 
510 POKES0.. 0 : FOR J= 1 TO 10 : HEZT : HEZT 

520 PR I HT " Srsa .•--, " : PR I HT " S I ■■ GI RAT I ■■ I " ; PR I HT 

"SI 'LEHTfi-- - I 

530 PR I HT " a I riEHTE . I " ^ PR I HT " ti i -•- I " : PR I HT " Zi 

l-'SEI • IH-- I 

540 PR I HT " ti I ARRESTO I " : PR I HT " S ! ■- • 1" : PR I HT " ti 


PR I HT '■ a-" : FOR I = 1TO3000 : HEKT 

FOR I = 1 TO 12 : FOR J= 175T0117STEP~ 1 : POKES0J : HEZT 
FOR.T=l 17T0I75 : POKES0.. J : HEZT : HEKT : POKESO.. 0 
GOSUB 1600 GOSUB 1500 
FORJ--=lTO7000:H£:Kf 
GOT 01300 

QTi:=f-11 ni < STR$ ( 1000159-'v'fìL < TI $ > ).. 37 ) 
PRIHT"SItì";TfiB(13)MiriT'::QT$..4.. 1>" : "RIGHT$(QT$.. ; 
>:IFTI-T<TLTHEH730 
GOT0500 

IFFHB(0)=0THEH710 
TT=VRL a 11: : L=0 : GOSUB 1000 
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740 

750 

760 

810 

820 

830 

840 

850 


860 



890 

900 

910 

920 

930 

940 

950 


960 

970 

975 


980 
990 
1000 


1010 
1020 
1 030 
1 050 
1055 
1100 
1 1 10 


PRI NT " TRE 13 > " ■ POR I = 1 Ti:i2 : PR 

INTTRB( 13)"a -NEKT 

PR INTTRE <: 13 ) " ST " : POR I = 1TO1000 : HEXT : GOSUB1100 : 
GOSUB3100 

PORI = 1TO4000:NENT: GOTO1300 
V=0:IPR=-1THENL=0:GOSUB1000 
Kt=RIGHTt<STR$(::K>..2) 

N1 $=R I GHTl: C STR$ < 1 ).. 2 ) 

ip:k=49THEh:ki$="-0" 

PR I mC$K$ " GOSUE990 : PR I NTC$R I GHT$ < . 1 ) " - •- 

"LEPT#(N1$.. 1) :GOSUB990 

PR I NTC$ " " K1 $ : GOSUB990 : PR I HTC$ " •- GOSU 

B990 

N=X+1:IPX=50THENX=0 
IPXOC a_+1 ) ORRO0THEH890 

1 : POKEVL ..15: POKES0S : POKES0.. 0 : POR I = 1T025 : HE 
NT 

POKES0.. S : POKES0.. 0 ■' POKEVL.. 7 : GOTO490 
V=0:IPR=0THEHL=0:R=-l:GOSUB1000 
N$=RIGHTf<STR$(N)..2) 

N1$=RIGHT$(STR$ v N-1).2) 

IPX=0THEHN1J:="49" 

PR I HTC$ ■■ " N$ : GOSUB990 : PR I HTC:f RI GHTif K1 $.. 1 ) “ •■ 

"LEPT$0<|:.. 1 ) : GOSUE990 

PR I NTCi:N 1 $ " •• ■' : GOSUE990 : PR I NTC$ " •- " K1 $ " : GOSU 

B990 

N=N-1:IPK=-1THENN=49 
IPNOC ■: L+1 > 0RR<;>~ 1THEN9S0 

1 : POKEVL ..15: POKES0.. S : POKES0. 0 : POR I = 1T025 : HE 
NT 

POKESO.. 8 : POk'ESO.. R : POKEVL .. 7 : GuT'0490 
PORI = ÌTO50:HENT: RETURN 

IP L=0 THEH POR Z=1 TO 7 STEP 2:P0KE VIC+Z.O: 

HENT: RETURN 

POKE VIC+L+L-1.. 116 

REM POKE VIC+38+L.. 1 :POR Z=1 TO 200: HENT 
POKE VIC+38 + L,6 : RETURN 
IPNS=0THENRETURN 
POR.T= 1 TO 110 : HENT : RETURN 

PRINT".: : Cl.hf = " TTTrrmTTTm" 
rii:=i::u$+ •’ «SIISI - :sij - ai - :sii - :sii - :sii-- ;sii - :sii-' :sii - :sii - :sn •- ai 
•-:sii-:siLJi®i"+i::u$ 
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1120 PRINI" riiiiI;i!iiI m I;i!iiI m\ :(!iii m\m i m i m i m i m i;iiii 

11 30 PR I NT ” -eli - ;eii - Miisr.eireiriaiKirejr- ;eir- ;eirii:-rei«r 
:i!ir4t;eii»:eji»;eic3~"ii$; 

11 40 PR I NT -eli - ;eii-- :eiR:r;eireireiKr;eii-- .eii - ;eiE7J:r:eiKr 
’e|^;^'ellt'ell•’e]Ei]-" :Ti$; 

11 50 PR I NT ■■ -eli - :enìsreireireireiBGr;eir- ;»iin:r;eireiKir 
el^4•'el||l'elltt'l!llEi]~" ; DI- : 

1160 PR I NT " -:eii - eiKsTiEeii - :eii - :eii' eicreii-' ;eirnsr;eireiKr 
.eii -:eii-:eii -:eiih-" iri$.i 

1170 PR I NT " -eli - ;eiiì:-reir:eir:eireiii53"“eimtìi~eBr"eiB-- :eicr 
;eiC3«;eii«:eii»:eica~" ; ii$; 

1180 PR I NT " -eli" ;eBi - eiRsJ'TeireireiKreiiini-reirpireiKr 
:eiC3«:eiitt:eiit;eliC3~" ; ]}$; 

1190 PR I NT " -eli - :eiii:,oireir7eirei!!!5T";eUiiisnieii - ;eis:f"ei»« 

iJ”elE?* Plte i!ilto'iiHCi}-"ri^;.; 

1200 PR INT ■■ -eli'- eiiRrmeii•- eli eii - eicoina“eireireiKr 
eii-eii-eii-eii-".;riT.: 

1210 PRI NT" -eli - eiiia"eireir'eireii«iE3~;eii - eiEìisreirTeiKT" 
:eiiit:i!]i«eii«eiE3-" 

1220 PR I NT "-eli'- eli - eiiKsreireireiiET'ei! - eiirirriieii - eicr 
eiii«ieii«eiii!ieiE3~" .i 

1230 PR I NT " -eli - eiiiroireireireiET'ei!'- eim:reireiKr 

eliiiflieilfteito'eBGa-'-" : Iì$ ; 

1240 PR I NT ■’ -eli'- eiKsrseir- eir eii-' eicreii - eii- eimrrMeiEr 
eli--eli-'eli--eiH"; UT.: 

1250 PR INT'' -eli'- eiiirr'eireireireiBìT'eii-- eii-- eiEnrT-EeiEr 
eiisneiiteiiteBE^-" ; d$.: 

1260 PR I NT " -eli-- eli-' eiw:r eireireiROii - eii-' eimmieicT’ 
eii:4»eitoeiiieiitii.i-".;ri$.; 

1270 PRI NT " -eli-" ei!-- eiiisreireir'eisreii-- eli-- eis-' eir'eiiani- 
eirteiteeiE ^-"m 

1235 RETURN 

1 300 GM=GM+ 1 : POKE VIC-i-33.. 6 : POKEVIC+21.. 0 

1305 PR I NT " :33[e[elJi ■- COMB INH21 ONE - ERR - SI" COT 

1310 GETT$: IFT$<>""THEN1310 

1320 SQì:= " S " : IFWG-1 THENSQT=^ " " 

1325 IFTT>0THENWQ=WQ+1 


i OcL I 

1330 
1340 
1345 
1360 


PR I NT " eiePRRT I TE -GIOCRTE ^ "GM 
IFNGTHEN PR INT"eieWRI - VINTO - "NO " VOLTE 
IFTTOORND < TTCBSORBS =8 > THENBS==TT 
IFES=-0THEN1390 
IFTT==0THEN1380 


SQT 
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1370 

1380 

1390 
1400 
1410 
1420 
1500 
1510 
1520 
1530 
1535 

1539 

1540 
1545 

1550 
1560 
1570 
1600 


1605 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 


1780 
1790 
1800 


PRIHI " PITEMPO DELLH - PROVA : " TRE< 12 ) INT( T T /10 
0 > " Il : " RI GHT$ STR$ TT ).. 2 > " W" 

PR IHT " MI GL I OR •' TEMPO : " TRE < 12)1 NT ( BS /100 ) " Il : ” RI 
GHT)f';:STR$<ES).. 2 )"W" 

PRINT " WPl" : G08IJE 2000 
TT =^0 

IFVNTHEN150 

POKEVL 0 : PR I NT " □=!" : ENE 
POKE VIC+ 32 .. 11 ; 

FRI NT "Ììiiil";É$II-PRINTE$I$ 

POR 1=1 TO 18 
PRINT" • i"; 

POR .T= 1 TO 4 : PR I NT " Hii»! ' " ; : NENT 
PRINT TfiB( 32 ) 

NE:KT I ; PR INTE^I $ : PR I NT " ■ " B $I $ 

PRINT " a- LH - TUR-'CuNERNNR : DIECI •-ANNI - DI - CRRCER 
E"; 1$ 

PRINTE$.i 1$: 

PRINT "H" ;E:f; 1 $; "ìa:!" 

RETURN 

E$ = " S’' - - ■' ■' - - - - - - - - ■' ■' ■' - - ■' - - ■’ ■' - : 

P 0 KEVIC:+ 33 .. 14 
PRINT "EH" 

PR I NT " Uiiiliia::^- - •- ^ 

PR I NT " liiiiiiaai-^ ^ -■ -■ ■■■ ITP-- a-' " " 

PR I NT " liniiiaai-' -■ -■ -■ ir•- ••• ■- - • m-' ■- ^a-- " 

PR I NT " ii»!iiiaa-’ -■ -■ -■ ir■■■ -■ -■ -■ itì.-- 

PRI NT " ■■■ -■ " -■ ••• -■ " ••• -■ -■ " -• !n I 

PRINT --••-fiiar--^ 

PRINT 

PRINT 

PRINT n..•..•..g,..-.. 

PRINT " 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT "H".iE$ 

PRINT E$ 

PRINT E$ 

PRINT E$ 

PRINT E$ 
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1810 PRINT B$ 

1899 RETIJRH 

1900 SB= 145^64 

1910 POR 1=0 Tu 63:P0KE SB+I..0:HEXT I 


1920 

FOR 

1=0 

TO 

15 : POKE SB+3*I.. 

192:NEXT I 

1930 

SP=C 

RT+1016 



1940 

FOR 

1=0 

TO 

3 : POKE SP+I.. 14 : 

NE7:T I 

1950 

FOR 

1=0 

TO 

3 :POKE VIC+39+I 

.òUlEXT I 

1960 

FOR 

1=0 

TO 

3 : POKE VIC+I + I.. 

171+7*1 :POKE VIC+I + 


I + 1..0;NEKT 
1970 POKE VIC+21.15 
1980 RETURN 
2000 Nn=0 

2010 Tr'1=0 : SW= 1 : PRI NT " afTENT I •- fiNCORR -’ - 1 NO •' 

2020 IF TKTM THEN 2050 

2030 PR I NTTRB ( 14+N0*4 > : MI SW .. 1 > ; N I C " ' SI NO 

••■"..3*N0+1,.3> ; "T' 

2040 SW=3-SW:TM=TI+15 

2050 JD=PEEK < JS> flNB31 : JB= < JIK16): jri=JDfìNri 15 
2060 IF JB AND JD=15 THEN VN=<::NO=0> : RETURN 
2070 IFCJD AND 8>=0 AND NO=0 THEN NO=l:GOTO 2010 
2080 IFCJD AND 4:;'=0 AND NO=ì THEN NO=0:CiOTO 2010 
2090 GOTO 2020 

3100 POKÉ SÌD+12.0;POKE SID+13.240 : POKE SID+7..0;PO 
KE SID+8.0:POKE SID+11.17 
3105 POKE SID+24.. 15 
3110 FOR 1=1 TO 11 

3120 POKE SID+8.PT<NTa>) :TM=TI+DRa> 

3130 IF TICTM THEN 3130 
3140 NEKT I 

3150 POKE SID+11.. 16;P0KE SID+ll.U 
3160 RETURN 

60000 I N$= '* -■ " : 2T=T I : 2C=2 : 2D$=i::HR^ t 20 > 

60010 GET2$ : I F2l:<> " " THEN60070 

60020 IF2TC=TITHENPRINTMID#< " '1".2C3 1 >. "Il" J : 2C=3-2C 
:2T=TI+15 
60025 GOSUE1160 
60030 GOTO60010 

60070 2=ASC ( Z$ :> ■■ 2L=LEN CI Ht > : IF < 2AND127 > <;32THENPR I NT 
" •■GOTO60110 

60090 IF2L>QI THEN60010 
60100 I m= I N$+2$ : PR I NT2$ ; Zlit i Z$ ; 

60110 IF2=13THENIN$=MID$ CIN$.2 >:PRINTCR$; : RETURN 
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60120 

60130 


60140 

61000 


61010 

62000 

62010 

62020 


62030 

62040 

62045 

62050 

62060 

62070 

62030 

62090 

62100 
62110 
62120 


IFZ=20RNDZL>1THENIN|:--=LEFT$( ZL-1 ) : PRINT"ir- 
.:GOTO60010 

IFZ=141THENZ$=CHR$(-20* < ZL>1)):F0RZ=2T0ZL ^ PRI 

HTZf;:HEXT:GOTO60000 

GOTO60010 

CRT=1024 : VIC=53248 : Wri=40 : CRf=CHR$<: 13;- : 3111=542 
72 :JS=56320:CM=55296 
QL=214;QI=254:RETURN 

G0SUB61000 :POKEVIC+32 .0 :POKEVIC+33.0 :LN=LEH < P 
G$:- :TB='::40-LN>, '2 

PR I NT " ."IiHeMUliia" TfiB ( TB ) LEFTi' C " •- •- •- " •- •• " '' ' '' " ' ■- 
" . LN> 

PRINT" a" TRB< TE PG$ : PRINT" S" TRE( TB >LEFTf-< " •- •- 

PR I NT " m" TRB < C 40-lÉn ( klf > > /2 > RIJ$ 

MS$= " ERTTI RETURN •- PER ' INIZI ARE " 

IF JFTHENM3$= " PREM n L - JOVSTICK ' PER INIZI ARE " 
TB=';;'::40-LENaiS$>>/2) 

PR I NT " TRE C TE > riS$ : PR I NT " MelCMiiMlk.-' •- -■ 

•' < 0 1933 THE " CODE " WORKS " 

GETIN$ : IFINf <:>" " THEN62120 

IF < PEEK(JS > AND16)=0THEN62120 

PR I NT " aMttillBMPMPltìPielilM" T RE ( TE > LEFT$ ( " . K+1 ) L 

EFTfCMSf.Q) 

Q=Q+1 : IFQ>LENo:NS$>THENQ=0:K=1-K 
GOTO62070 

CLR : PR I NT " □al" : G0SUE61000 ^ GOTO 1 00 





Boswain 



Tutti sanno che ogni cosa ha il suo prezzo ed in questo gioco esso può es¬ 
sere molto, molto alto... 

Boswain è il misterioso guardiano del tempio di Yakban, dove la sventu¬ 
ra ha voluto che voi finiste. Egli vi renderà la libertà, ma non senza farvi 
pagare il giusto prezzo: dovrete pagarla in rubini — che potete vincere 
giocando contro di lui — oppure ... in natura! 

Buona fortuna! 
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CPlRfìTTERI SPECIfìLI UTILIZZRTI 


SIMBOLI GRAFICI 


r SHIFT 

£ 

1 

SHIFT 

H 

1 

SHIFT G 

1 SHIFT 

- 

1 

SHIFT 

B 

1 

SHIFT V 

1 SHIFT 

T 

y 

é 

SHIFT 

N 

\ 

SHIFT M 

^ SHIFT 

U 


SHIFT 

* 

’i 

SHIFT I 

- SHIFT 

F 


SHIFT 

C 

•»* 

SHIFT K 

- SHIFT 

D 

*•. 

SHIFT 

J 

— 

COMM T 

1 COMM 

H 

'Il 

COMM 

w. 

1 

COMM N 

1 COMM 

M 

1 

COMM 

G 


COMM e 

• COMM 

V 

I- 

COMM 

Q 

« 

COMM 0 

1 COMM 

L 


COMM 

V 

“ 

COMM U 

^ COMM 

+ 






COMANDI 

& COLORI 






a RVS ON 

■ 

RVS OFF 

a 

HOME 

7} CLERR 


» 

CRSR-D 

1 

CRSR-U 

Il CRSR-L 


n 

CRSR-R 


CTRL WHT 

k CTRL CVN 

1 

CTRL PUR 

.71 

CTRL VEL 


1 PGf = " •" E •• 0 S W R I N " : RL!$= " DI ■■ C. T. HfiDOV ICH " 


5 REM COPYRIGHT 

6 REM BOX 6905.. 


•::C> 1983 THE CODE WORKS 
SRHTR ERRBRRfi.. CR 93160 


10 REM fìS OF 8/15,•••'83 GF 

50 REM EDIZIONE ITRLIRHR:EDIGEO 1934 

90 GOTO62000 

100 QI =7 ; L1 =0 : DV=0 : DX== 1 : SC=0 : LH$= " # " : RH$= " •- " : POKE 
I r . 6'~' 

1 05 pÒkÈV Ì C+32 .. 0 ; POKE VIC+33.. 0 
110 GOSUB 4100 

170 DL=2 : GOSIJB6000 : HH= 1 : GOSUB 11200 : GOSUB 1000 : DL=. 
5 :GOSUE6000 

200 DL=.5 :GOSUB6000 ^ HS=0:GOSUB2000 
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210 I FPP=0THENRH$=" # " : LH$= " •- " : POKE VIC. 180 
215 1FPF -1 THEHRH$= " •- " : LH$= " * " : POKE VIC.. 62 
220 GnSUB4000 : POKEQL ..12 : rr I NT " T' : PRI NTTfiB C 29 > " SCE 
GLI !" :GOSUB6500 

230 IF Q$="Q" THEN PRINT "□":GCiTO 640 

250 I FQ$<:> " n " fiHriQ$<> " S " THEHGOSUB 1700 : GOTO200 

270 LP=0:IFQ$="S"THENLP=1 

230 I FLP=PPTHEHSi::=:SC;-1 

290 IFLPOPPTHEHSOSC+1 

300 HS-1 : IFQ$="ri"THENHS=2 

320 GOSUB2000:GOSUB7000 

330 IFHS=5THEH340 

335 HS=3 : GOSUB2000 : riL=l •' GOSUB6000 : HS=5 : GOSIJE2000 : 
GOSUB4000 

340 IFSC=10GOTO600 
350 IFSC=-10GOTO400 
360 G 0 S U B11200 : G 0 T0200 
400 RESTORE 

410 RERDQì: : I FQ$<> " # " THEN410 
430 GOSUB5000 : IiL=2 : GOSUB600ÉI 
440 GOSUE4900:GOSUB13000 
450 riL=5 : GOSIJE6000 : PR I NT " : END 

600 RH$=" ■■■ " : LHì:=" " : HS=3 : GOSUE2000 
620 Q$= " Hfi I VINTU ! " : V=: 14 : G0SIJB5100 
630 Q$= " SE I LIBERO !" : V= 12 : G0SUB5100 
640 POKEVIC+21.. 0 : PR I NT' " itì" : END 

1000 PR I NT " - '■ NfìMMfl Nifi! •' CREDO - CHE " TU •' SI fl •" CRDUTO 

1060 PRINT ";«• IN•" UNFi "EOTOLR. RPPENR "LR" TESTR•"SMETTER 
R-' 

1070 PR I NT " W DI •" GIRRRTI•' GUfiRDfiT I ■" BENE " INTORNO 
1080 PR I NT " W SOPRR •" DI •" TE ■" C ' E •' ’ UNR •' VRSTfì - CUPOLR " •' •' 

1090 PR I NT " W D " RVOR10.. DIPINTR R " GRRNDI " STRI SCE " ROS 
SE 

1100 PR I NT " W RLLR " SOMMITR ■ SI " VEDE ' UN •" BUCO •' NERO. 
1110 PRINT" W QUELLO■"DRL- QURLE "SEI •"CRDUTO. 

1120 PR I NT " W SENTI ' CHE •' IL •" PRVI MENTO. «IfìSCOSTO ■' DR •' U 
Nfi 

1130 PR I NT " FITTR • NEBEIR.. " E ' ' SOFF I CE •" MR •- RESI STENTE 
1160 GOSUB6400 

1170 PR I NT " □[PMdMi'Mfa - - •' •' •' •' NON " RPPENR INIZI ■" R •" CERCRR 
E '■ LR ■' VIR 

1180 PR I NT " W" D " use I TR ■" TRA •' LE •" MURR " RD ■" RRCOUN RUMORE 
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11 90 PRI NT " ;bJ - T I Ffi TRRSflL I RE .'TI ■- TROVI ■■ HI ■- FRONTE 
1200 PR I NT ■' W RLE - RBITRHTE DI - QUESTO POSTO ■' MRGI CO .■ 

1210 PR I NT " W UNR •- MI STER IOSR •- FIGURR •-1NCRPPUCCIRTR. 

1230 GOSUBfa400 

1240 PR I NT '■ ; GOSIJB9000 : HS=5 ; GOSUB2000 

1241 REST0RE:F0RI==1T03 

1243 GOSIJB4900 : IFI <3THEHriL=2 : GOSUB6000 
1245 NEXT1 : GOSIJBb500:1 FQt= " N " THEN1600 
1255 GOSUB4900 ^ DL=2:GOSUB6000 ^ GOSUB4000 ^ HS=3:GOSUB 
2000 :GOSUB5000 

1290 DL=.5 :GOSUB6000:HS=0:GOSUB2000:DL=1.5-GOSUB60 
00•GOSUB4900 

1310 DL=2•GOSUB6000:GOSUB1700 :V=16•GOT01610 
1600 GOSUB4000 : 16 •' 0:$= " BENE ! " : G0SUB5100 : V=V-3 

1610 QT= " IHIZIR " : G0SUB5100 : V=V-2 : Q$ - " IL GIOCO ! " : GO 
SUB5100:DL”3:GOSUE6000 
16 4 U G U S U E 4 U U U • R! E f U R H 

1700 PR I NT " - :M«!HOTR ■' DEL - NRRRRTORE •- •- ' ■ 

1710 PR I NT " mr DEVI INDICRRE •- LE - MRNI DI ■■ EOSWRIN •- USR 
NDO 

1720 PR I NT " W I TRSTI •- ani" E ■■ SSW .'IL ■- TRSTO aCH-' I ND 
ICR 

1730 PR I NT " W LR - SUR " MRNO •- DESTRR.. - SE;!-' LR SUR ■■ SINIST 
RR. 

1731 PR I NT " •-- ••• " ••-" 

1740 GOSUB6400 

1750 GOSUB9000:HS=5■GOSUE2000 
1760 RETURN 

2000 IFHS=5THENGOSUE8000:CF=0: RETURN 
2010 I FC:F=0THENGOSUE8500 : CF== 1 
2020 ONHSGOT02150.. 2200.. 2250 
2100 GOSUB3200:GOSUB3250 ^ RETURN 
2150 GOSUB3200:G0SUB3150 : RETURN 
2200 G0SUB3100 :GOSUE3250: RETURN 
2250 G0SUE3100 :G0SUB3 ì50 : RETURN 

3100 POKEQL .17: PR IHT " T' : PR I NT " dii" ; 

3101 PR I NT " '■ ■■■ ZV :e!1II»ÌMI" 

3102 PR I NT " •' zr-' ■- ■■■ ■!• iillllllll" 

3103 PR I NT " ••• :-r;t!iiiniiii" ; 

3104 IF Lm=‘'r' THEN POKE VIi::+1..201 

3105 PRINT " zrwzì 

3106 PRINT"-•-SI I I I ■'".fJIIIIIII".; 

3107 PRINT"--:4 I I I 
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3108 PRINT" ••• ••■ Sii I I I ■"’;(!]|||||||".; 

3110 RETURN 

3150 POKEQL.17 :PRINT"T' :PRINTTflBa8 >; 

3151 PR I NT " ••• zr '■ :i!iiiiiiir' ; 

3152 PR I NT " ZV '■ "!!•■■ •- fllllllll" ; 

3153 PR I NT " ZV 'm-' :i!llllllll" 

3154 IF RH$="4;" THEN POKE VIC+1..201 

3155 PR I NT " zv ; 

3156 PRINT"- a I I I !! '”:(!lllllBir'; 

3157 PRINT"- a I I I e-' -'.dlliiiMI"; 

3158 PRINT"- a I I I 
3160 RETURN 

3200 POKEQL.. 23 : PR I NT " .1" ^ PR I NT " . 

3201 PR I NT " ^ . 

3202 PR I NT " " ; 

3203 PRINT"- -’■ a I I I ■• riBiliiill"; 

3204 POKEVIC:+1..0 

3205 PR I NT " •- -■ a IJUUUl- nillllllBI" 

3206 PR I NT " -• -■ a I_ m ^IIIIIBHII" ; 

3207 PR I NT " sr-• ■- ■- rJIIIIII" 

3208 PRINT" - a- - -’l" 

3210 RETURN 

3250 POKEQL23 : PRI NT "H" : PR I NTTfiE ( 18) ; 

3251 PR I NT " •- •- •- lll■ll■n". 

3252 PR I NT . 

3253 PRINT" a I I I - Tliiliiiir' 

3255 PR INT " S-IJUUUI -’ -’ TIBBBIBBH" 

3256 PR I NT " a_I l” ” ” nilllllMI" ; 

3257 PRINT" ET-’ -’ -’ :'IiliIII" ; 

3258 PRINT"- a-’ 

3260 RETURN 

4000 PR I NT " «" : FORLJ= 1T024 • PR I NTTfìE ( 25 > " 
" : hEXT : RETURN 

4100 RESTORE : SE= 13*64 : SP=C:RT+1016 
4110 REFE T$-1F T$0"£" THEN 4110 
4120 REFlD hPFOR 1=0 TO N-1 
4125 REFlIi T:POKE SE+I..THIEXT 
4130 FOR I=N TO 63 : POKE SE+I.. 0 ^ NEXT 
4140 POKE SP.. 13: POKE VI0+39.. 2 
4150 POKE VIC+1..0:POKE VIC+21.. 1 
4160 RESTORE RETURN 
4900 G 0 S U E4000 
5000 V=16 







68 BOSWAIN 


5020 REfìliQf : I FQ$<> ". " THENG0SUB5100 : V=V-2 •• GOTO5020 
5040 RETURN 

5100 X=32~INT<LEN<Q$>/2) 

5200 LN=LEN<Q$> ^ ; LV=V 

5210 Fi:iRL= 1TOLN : POKEQL25-V : PRI NT " T' 

5250 PR INTTRE L>i ) " MI D$ C Q$.. L. 1 > 

5270 LX=LK+1:NEXTL 
5290 RETURN 

5510 DRTfi " SONO ". ” BOSWRIN ! ".. . 

5520 DRTR " SE I •- UN " .. " PR IGIONI ERO " .. " DEL •- TENP10 "" 'r'RKB 
RN"... 

5540 DRTR " TI ■■ DEVO " " SPIEGRRE " 

5550 DRTR " I TERNIN1"" DEL ■■ TUO "" RILRSC10? ". " < S •- 0 ■- N 

5570 DRTR " PER ■■ RNDRRTENE " .■ " DEVI ■■ PRGRRE " 

5580 DRTR " UN •- TRIBUTO ".. " DI •-10 •- RUBIN1" . 

5590 DRTR " IN •• UNR ■■ MRNO " .. " NRSCONDERO •- % " UNR •- GEMMF1 " . 
5600 DRTR " DEV I ".. ” INDOVINRRE ".. " DOVE -■ E - " .. " NRSCOSTR "... 
5610 DRTR=.. *• - HR ! ! ""HRI ".. "SERGLIRTO" .■. 

5620 DRTR " PO I CHE •' NON •- HR I " " GEMME “ ... 

5630 DRTR " PRGHERRI ".. " IN NRTURR ! ". 

5640 DRTR " UN DITO " " E - •- UN ' BUONO "" SCRMB10 " .. . 

5700 DRTR.4f" ONORERRI "" IL TUO " " DEE I TO " .. . 

5710 DRTR " 0 •' DEVO •- ".. " USRRE " .■ " LR •- VIOLENZR? ". 

6000 X=TI+60*DL 
6020 IFTI<KGOTO6020 
6030 RETURN 

6400 POKEQL. 24 : PR I NT " T'TRE < 21:;*; " SF'REM I •- UN •- TASTO. . 

Il 

6500 GETQ$:IFQ$<>""GOTO6500 
6510 GETQ$: IFQ$=""G0T06510 
6520 RETURN 
7000 G 0 S LI E4000 
7100 IFL1==1ORSC<>-1GOTO7300 
7110 L1=1;REST0RE 
7120 RERDQ$ ^IFQ$<>" = "THEN7120 
7125 F0RI=1T04 
7130 GOSUB5000 

7135 ì FI = 1THENHS=3:GOSUE2000 
7140 DL=2:GOSUE6000 
7145 GOSUB4000 

7150 ne:kt 

7155 POKE VIC+1.0 
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7160 PRI NT " - •' a^JOTR •- DEL HflRRfiTORE '■ ■ 

7170 PR I NT " Wtì " ••• ••• DOPO •- MOLTE •- DISCUSSIONI.. •- •- •- •- •" •- •- 

Il 

7175 PR I NT " W BOSWfi I N •- Hfi '' flCCETTRTO - LE •- TUE ' MflN I 
7180 PR I NT " W" COME •' PfìGRMENTO ■■ CUMULRTIVO •- PER LE ■■ DITR. 
7135 PR I NT •’ ;«!]••■ RL " MOMENTO '' SE I '■ SRL VO.. •- MR •- SE - IL" DEE I TO 
7190 PR I NT " W RRR I VR •• R •- DIECI •- D I TR.. •- RLLORR 

7195 PR I NT " W -■ -• ••• •' PERDERRI LE •- MRNI. 

7196 PRINT" -" 


7205 

GOSUB6400 






7210 

GOSUB9000:HS= 

5: 

GOS 

UB2000 

: RETURN 

7300 

IFLP=PPG0T073 

08 





7306 

Q:f="ESRTTO! " : 

V= 

16 •' 

G0SUB5 

100 


7307 

GOTO7310 






7308 

Qf="SERGLIRTO 

! " 

• V= 

16:GOS 

UE5 

100 

7310 

IFSO0GOTO7400 





7311 

IFSC=0GOTO735 

0 





7315 

Q^="ORR-MI-DE 

VI 

M . y 

=14:G0 

SUB 

5100 

7316 

Q$=STR$ RBS ( S 

C > 


"DITO" 



7320 

IFSCO-ITHENQ 

■$■= 

STR$<RBS< 

SO 

::' + ""DITR" 

7325 

V=12:GOSUE5100 





7330 

RETURN 







Q$="SIRMO-PRR 

I" 

; V= 

12:GOS 

UB5 

1 00 

7355 

RETURN 






7400 

Q$="0RR-POSSIEDI": 

V=14:G 

osu 

E5100 

7405 

R$=" "RUBINr' : 

IF 

sc= 

1THENR$=" 

"RUBINO" 

7410 

Q^=STR$';;SC)+R$: 

V=1 

2 :G0SUB51 

00 

7420 

RETURN 






8000 

POKEQL.12:PRINT 

X 1 

Il 

:PRINT 

Il X X 

XXX |XXXXX 

8010 

PRINT"'l - 

/ / 


" 1"""" 

X X 

1 X X .. 

8020 

print" ••■••• ••••••' 1- 



" 1 " " " " 


1 " " " 

8030 

PRINT""-'--" 1 " 


/ X 

" 1 " " " " 

X 

1 X X H 

8040 

PRINT"" """"1 " 

/ 

X X 

" 1 " " " " 


|X X X .. 

8050 

PRINT""""" 1"" 



" 1 " " -• " 

X X X 

|X X X .. 

8060 

PRINT""""" 1"" 


X 

'■ •- •- 

X X 

"1 """ 

8070 

PRINT""""" 1"" 



••• X 


X, XXH 

8075 

POKE VIi:;+1.0 






8080 

PRINT""""" 1"" 



X ••• X X X X 


X, XXM 

8085 

PRINT""""" 1"" 

.• / 

X / X 



X, XX.. 

8086 

PRINT""""" 1"" 

y / 



X X 

X| XX.. 

8087 

PRINT'•"""" i-- 

/ 

X .*■ 

X X X X X X 

X X X 

X, XX.. 


8090 PRINT"a": RETURN 
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8500 POKEQL.. 12 : PRIHT " T' ; PRI NT " •• " ' I •• •- ■- '' •- •- •- I - -■ ^ •- " 

-l 

8501 PR I NT " I ••••••••• ••• ••• 

8502 PR I HT " •- '■ \ - -■ '■ I -■ ■' \ 

8503 PR I HT " •' ■■ '■ •' \ ' •- \ 

8504 PRIHT " p- .-l - .■-•. T 

8505 PR I HT " -■ •' ^ I •- I '■ " 

8506 PRIHT "\ \ 

8507 PR I HT " ^ '■ •- •' I I '■ " 

8508 FORLI = 1T04 : PR I HT " ■■ •- •- '' •- -■ •- •" '' •" ■■ ' ■■ •- •- " : H 

EXT 

8599 RETURN 
9000 PRIHT"n 

9003 PR I HTTfiB 11 > " 

9004 PR I HTTflE < 10 > " / ' ■" •- 

9005 PR IHTTRB 9 > " I " - •- 

9006 PRINTTflB<9)"l ^—““—.1 

9007 PR INTTPB < 9 > " I P i -■ ■ I I 

9008 PR I HTTfiB < 9 :>"l I ! I 

9009 PRIHTTfiB-:;8::'" |•••T | 

9010 PRIHTTfiB'^9>"l I 

9011 PR I HTTfiB 8 > " /- ' ' \'' /-■ •- 

9012 PR I HTTfiB 7 > " •- •- '' •' •- ' •- \ 

9013 PRIHTTfiB-:6> P ^ 

9100 RETURN 

11200 IFHHO1 GOTO 11300 

11210 FORI =0Ti:i7 : TH < I > =0 : HEXTI 

11220 CC=l:HH=0 

11300 I =-2*. . 5+ <; LP=LL 

11320 J=4i*0V <. 2 +2*0V 1 ;:- +1 *0V C 0 

11330 K=TH':;J> + I 

11335 IFK<>0THEHK=K/fiBS < K) 

11340 IFC04THEHTH J ;■ =K 

11360 ov<2>=oV';i>;ov(;i:>=ov'::0> 

11370 OV(0:) = 1 + '::PP=LP;:- 
11390 J=4*0V 2 > +2*0V 1 ) +1 *0V 0 > 

11400 i=th'::j;;' 

11410 IFI=0GOTO11450 
11420 pp=':lp-.5;;-*i+.5 
114:50 GOTO 11500 
11450 I=TI 

11460 PP=2* ( IX2 > -1 NT I /2 
11500 LL=LP : CC=C:C+1 ; RETURN 
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13000 

13002 

13003 

13004 

13005 

13006 

13007 

13008 

13009 

13010 

13011 

13012 
53000 


53001 

53002 
60000 
60010 
60020 

60030 

60070 

60090 
601 00 
60110 
60120 

60130 


60140 
61000 


61010 

62000 

62010 

62020 

52030 

52040 


POKEQL.12:PRINT"T' 

PRINTTflBa9:>"/“\ 

PRINTTRBaS)"/-' - 
PRINTTflB<17>^••••'\ 

PRiHTTfiBa6:;'" i '.-^. - i 

PRIHTTflB'::i6>" I SI■ 

PRIHTTFlBa6)" 

PRI HTTflB 16 > " 1 ha--' •- 

PRINTTfìB(8>"’^a"-•■••■■■■■■■ B-a ! I I 11 

PRINTTfiBa0>"~~^-h-a I I I 5-' 

PRIHTTflEa7>" 

RETURN 

DfiTRE ,.41.. 0.. 255.0.3.. 126.. 647.. 131224.. 15.189.. 24 
0.. 31.. 126.. 248.. 60255.28.114 

DRTR126.226.7S<. 129.252.63. 189.248.31. 189.240. 
15.126.224. i'. 12b. 192.2.255 
rifìTR0.0. 168 

^ •' : ZT=TI : ZC=2 : ZD$=i::HR$(20) 

GETZ$:IFZ$<>""THEN60070 

I FZT<=T ITHEMPRIHTMI Df " •- ii". ZC. 1 )" II" ; : ZC=3-ZC 

:ZT=TI+15 

GOTCI60010 

Z=RSC <: Zi: : 2L=LEN I ÌU : IF < ZRND127 > <32THEHPR I NT 
" ■11" ; : GCITO60110 
IFZL:>QI THEN60010 
I N$= I Ni:4-Z$ : PR I NTZì: ; ZD$ ; Z$ .i 
IFZ= 13THENINf^M111$( IN$. 2: PRINTCRf ; : RETURN 
IFZ=20RNDZL>lTHENIN$=LEFT$aN$. ZL-1 : PRINT"II" 
:GOTO60010 

IFZ=141THENZ$=C:HR$<-20if:'::ZL>l > : F0RZ=2T0ZL : PRI 

NTZ$;:NEXT;GOTO60000 

GOTO60010 

C:RT=1024 : VIC=53248 : Wri=40 : CR$=C:HR$':; 13> •• 8111=542 
72 :JS=56320:CM=55296 
QL=214:QI=254:RETURN 

G0SUB61000 :POKEVIC+32.0 :POKEV10+33.0 :LN=LEN < P 

G$) :TB=<40-LH;-/2 

PRINT"Z[B!M«Pl(ia" TRECTE > LEFT$" •- ■- 

••■••■'■•'".LN) 

PRINT" a"TRE<; TE>PG$ : PRINT" a" TRE<TE>LEFT$ t " -• •- 

•- '■ •' " . ln;:- 

PR I NT " m" TRE ( C 40-LEN ■: RU$ > > /2 RU$ 
r'1S$= " ERTTI '• RETURN •- PER -INIZI RRE " 




‘Ti <T1 i7‘i <7ì iJi iJì «Ti O''» (Ti 

IV) Mi Mi MI MI Mi M Mi Mi 

I-* »-» 1-^ iSi i3D i3D iS iSI ® 

MI ►- o 'o cci -j i7ì cn 4 ^ 

is 'Si o o 'S'is 'Si ® cn 
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I FJFTHENMS$= " PRENI ^ IL •- JOVSTICK ' PER 'INIZI ARE " 
TB- < e 40-LEN < > > /2 > 

PRI NT " TRB C TB MS# : PRI NT " -• - ' •• -■ ' •' 

e > 1933 '■ THE " CODE ^ WORKS " 

GETI Nf : IFI mO " " THEN62129 

IF ( PEEK < JS > AND 16 =0THEN62129 

PR I NT " JaPiflMiìMfliPiCMifli'Mi!!?]'' TAB < TE > LEFTl:•• , k+ 1 > L 

EFT$(MS$..Q> 

Q=Q+1 : IFQ>LENaiS^;:'THENQ=0:K=l-K 
GOTO62070 

CLR : PR I NT " nal" : G0SIJB61900 : GOTO 199 




Hanoi 



La tradizione narra che in qualche luogo sperduto dell’Oriente, i sacerdo¬ 
ti di un culto millenario sono costantemente all’opera per cercare di por¬ 
tare a termine un antico compito. Tanto tempo fa, prima ancora dell’av¬ 
vento della civiltà moderna, il loro tempio si trovava nella città di Hanoi; 
il compito che essi stanno ancora svolgendo è quello di trasferire una pi¬ 
la formata da tantissimi e pesanti dischi d’argento forati da una guglia 
dorata ad un’altra, seguendo delle regole ben precise. È scritto che quan¬ 
do la pila sarà stata ricostruita perfettamente, il mondo cesserà di esistere. 
Dopo aver provato il programma Hanoi, vi renderete conto del perché i 
sacerdoti sono ancora all’opera ed il mondo continua tranquillamente la 
sua corsa... 

Nella simulazione del C-64 potete usare da 2 a 7 dischi (per evitare che 
diventiate vecchi...) ed avete a disposizione tre piattaforme; la pila inizia¬ 
le è sulla piattaforma 1 (la più a sinistra) e voi dovete ricostruirla su una 
qualsiasi delle altre due, spostando un disco per volta, con un’unica rego¬ 
la ferrea; non potete mai posare un disco su di un altro più piccolo. Ogni 
tentativo fatto in tal senso vi verrà impedito dal C-64. 

Alla fine del lavoro, il programma vi dirà in quante mosse siete riusciti 
(se siete riusciti) e qual era il numero minimo di mosse per trasferire la 
pila, con vostra grande soddisfazione (se i due numeri coincidono) o rab¬ 
bia (in caso contrario). 
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r.rtoi^-TTfrr» T r 

rCiC-i-'TCìI T IITTI T*7 




i^nr\n i i cr. a 


.^.n 1 i 



SIMBOLI GRRFICI 

_ COMM @ 


COMM P 

. 

COMM 

0 

■ COMM I 

— 

COMM IJ 


COMM 

V 

" COMM T 

1 

COMM H 

1 

CONM 

K 

1 COMM N 

■ 

COMM D 

■ 

COMM 

F 

1 COMM J 

1 

COMM L 

■ 

COMM 

C 

• COMM V 


COMM + 




COMRHDI & COLORI 

Si RVS OH 

■ 

RVS OFF 

a 

HOME 


n CLERR 

JÙ 

CRSR-D 

n 

CRSR- 

-U 

Il CRSR-L 

II 

CRSR-R 

II 

IHST 


al CTRL WHT 

n 

CTRL RED 

k 

CTRL 

CVH 

ii CTRL GRH 

n 

Ul 

CTRL BLU 

m 

CTRL 

VEL 

ri CONM BLU 

» 

COMM CVN 

Q 

COMM 

RED 

Il COMM GRH 


PG$= " H fì ■■ N ■' 0 •• I ••• •' ; fìU$= •• n I GLEN - FISHER " 


REM COPVRIGHT (.C) 1983 THE CODE WORKS 
REM BOX 6905.. SflHTfl ERRERRfl.. CR 93168 

REM RS OF 8/15/33 GF 

REM EDIZIONE ITRLIRNR:EDIGEO 1984 

001062000 

QI=15 : T$=" ■ ju!ua.srsr;r‘" 

F-OKEVIC+32.. 0 : POKE VIC+33.8 

DI MTPÌ( 8 >T:f < 8 ). BTÌ-: 8 >. E$ ( 3 >C$ <' 8 
CR$='' " 

F0RI=1T08 

C$:=MID$ di', 2*I1 ) : C$=C$+C$+C$ : Cf =:C$+Ct+r:$ : 0^: 
LEFT$(:i:;$+i:;$, 14> 

JF$ ( I > =M I D$ ( Tì:.. 2* I -11 > +0$ 
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150 C;$=M I ri$ < Bi:. 2?^ 1. 1 ) : i::$=C$+Ct+C$ • c:$=C|:+C$+C$ ; C$= 
LEFTf •;:C:$+C$.. 14) 

160 BT$ ( I > =M I< B$.. I -1.. 1 > +11:$ 

170 HEXTI 

200 L$="ZVZi SII B- " 

210 R$="l- H a Zi \Zi- " 

220 riINLF$':5:;'..RT$'::5::' 

230 FORI = 1T05 : LF$ CI =111 B$ C .. 2* I -1.2 > : RT$ < I > =M 1 1\$ 
•;;R$.2#I-1.2) ^HEKTI 

500 PRI NT : PRI NT " :7i:!lJfiNT I •- DISCHI •- C FI NO •- fi 7 > •- ? " ; : GO 
SLIB60000:PRINT 

510 IFI N$= " " THENPRI NT " US I fiMONE •' 3 " ; I N$= " 3 " : FOR I = 1T 
0500 :NEKT 

520 FORI = lTOLEN-;;iN$> 

530 : T$=M I m- I m .. I.. 1 ) : I FT$>= " 0 " fiNDTf <=-■ " 9 " THEN550 
540 PR I NT ■■ NIENTEM" : Tf ; " • PER - FfiVORE. " : GOTO500 
550 NEXTI 

560 N=:VfiL I Nf ) : I FN>7THENPR I NT " NON ■■ POSSO USfiRNE " PI 
U^''lU -T. " :GOTn500 

570 I FN<2THENPR I NT " NON '' ESSERE RIDI COLO ! " ^ GOTO500 
600 CLf=":«y«C:il" 

610 FOR 1=1 TO 7 

620 T= I NT RND U > #LEN •: CLt > +1 ;• 

630 CL$(I>=MIDf<CL$..T.. 1> 

640 CL^=LEFT$'::CL$. T~1 >+riiri$(;CL$. T+l> 

650 i-\EKT I 
900 DN$= " 

910 RT$="IÌÌÌÌÌ»»»»ÌÌÌir 

1000 FOR I = 1T03 : FOR J=0TO7 : P ( I.. J > =0 : NEXT J : NEXTI 
1100 PR I NT " J"im" Til" : P ( 10 > =N 
1110 F0RI=1T05SPRINT 
1115 PRINT" Zi-^ ••• - '• ••• •- 

IIB- "; :NEXTI 

1120 PR I ntuni: Bniiiii ai# i n [i;iiiii:^ 

■iST *m" 

1130 PRINT"liÌÌÌÌÌÌÌinii;^ i!r~:4 «filili aH^2.'ii Rlllll;^ lU. 

sr 9nr ; 

1140 PRINT"IÌ»ÌÌÌÌ»irnEliB~~;4Bf!lllll :t#3ni [clllllE) BIU. 

s* m" ; 

1150 PR I NTIiNfLEFT# ( " .TTTTTTT'N > ; 

1160 F0RI=1T0N 

1170 PR I NTCLt ( I )LEFT$ ( " ■" +RT$ ,.7-1 + 1 >LEFT$ ( " a_" +B 
T$a>..2*1 + 1 
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1180 P<:i..N-I + i::' = I#2 
1190 HEXTI 
1800 MV=0 
1900 TM=TH-60 
1910 IFTI<Tr'1THEN1910 
1950 GOSUB8000 

2000 PRI NT " n" : PR$ = " Dfì QUALE •- PI LA? •- " : GOSUB5000 :1FIH 
"THEN1950 
2010 F=VAL'::iH$> 

2020 IFP < F.. 0 > < 1THEHPRI NT " SSL A •- PI LA •- E ' •- VUOTA. " ^ GOTO 1 
900 

2050 PRÌ= " A QUALE PI LA? •- " : GOSUB5000 ^ IFI N$= " " THEN19 
50 

2060 T=^VALaH$) 

2070 I FF=TTHENPR I NT " SSf JOH •' MUOVI •- NI ENTE ! " : GOTO 1900 
2080 I FP ( T.. 0 ) =0THEH2100 

2090 IFP<F.P<:;F..0::O>Pa..Pa..0>>THEHPRINT"S»^ON-VA-BE 
NE. " : r-iriTril90fì 

2100 FC=P<F..0> :FW=P(F..FC> :TC=Pa..0> ;TW=Pa..TC> :MV= 
MV+1 

2110 X=l+13*<F-l>+7-FW/2 

2120 PR I NT riN$LEFT$ < " TTTTTrrn'' .. Fi:;+1 > LEFT$ ■: " ■" +R 
TÌ^+PTÌ-+RT$ • i 

2125 LF$=LEFT$ " '«illlllllllllllt".. FW+1 ) 

2130 FORI = 1TO 8 : T$ I > =LEFT$ C TP$ < I ). 1+FW > : Bf C I > =LEF 
Tf<BT$a).. 1+FW> :NEXTI 
2135 HT=0;J=1:1FF>TTHENJ=-1 
2140 FORI=FTOTSTEPJ 
2145 I FP I.. 0 >HTTHENHT=P I.. 0 
2150 NEXTI 

2155 I FHT=P ( T0 ) THENHT=HT-!-1 : G0T02163 
2160 IFABS F-T > > 1 THEN I FHT=P < 20 ) THENHT=HT+1 
2163 PRINT CL$(:P(F.P<F..0;>)/2>; 

2165 FORI=FC: TO HT 
2170 :FOR J=1T08 

2175 : PR I HTT$ < J >LF$ ; B$ ( J > ; LF$ ; " TT' ; 

2180 :HEKTJ 
2185 :pRINT"n"; 

2190 HEXTI 
2195 PRINT 

2200 L$=LEFT$ " ll■l■lll 
$..FN-1> 


l’M+FW) :R|:=LEFT#'::RT 
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2201 

2205 
2210 
2215 
2220 
2225 

2230 

"j'S 

2250 


2320 

2330 

2340 

2350 

2410 

2500 

2510 

2520 

2600 

2700 

2710 

2720 

2730 

2740 

2750 
2760 
2770 
21 '' 30 
2790 
2800 
5000 
5010 

5015 

5016 


PRI NT " a" ; LEFT$ < " •- ■- " •- •- •- ^ •- •' ■■ •- '' '' •- ".. FW > ; " S". LEF 
T$(. .. FW> 

IFF>TTHEN2250 

F0RI=F4il3T0T:*13-l 

:F0RJ=1T05 

PRiNTLF$a>;Rf;RT$u:>;L$; 

NEXTJ 

PRINT">r.; 

HEXTI 

GOTO2300 

F0RI=Ti^l3TnF*13“l 

PRINT"ir.; 

:F0RJ=5T013TEP-1 
: : PR I NTLF$ ( J ; Rt ; RT:J < J ) ; L$ ; 

:NEXTJ 
NEXTI 

FORI^HT-lTOTCSTEP-l 

:F0RJ=ST01STEP-1 

: PR I NTT$ <; j ; LF$ ; ( J > : LF$ : " :tt' ; 

:NEXTJ 
:PRI NT 
NEXTI 

PRINTLEFT$':; " a_"+ET$-:: 1 > FW+1 > ; 

PCT.. 0.':'=P':t.. 0:' + l 
Pa',.P(T.0>>=P(F..P<F.0>) 

P F .■ 0 =P F0 “ 1 

IFP < 2.. 0 > ONflNDP ( 3.. 0 > ONTHEN1900 
GOSUB8000 

PR I NT " m - ■- ■- ■- ” Il...... " 

PR I NT " •' ■■■ ■■■ ai CE L Hfi I FfìTTFl ! 9 " 

PRINT" ......... " 

PR I NT " :t!rr i •- sono - volute " ; riv ; left$ "mosse "5+ri 
v=l)); "•••PER-FRRLO" 

T=2 TN-1 : PR I NT " :pLR •- SOLUZI ONE •- PIU •- •- VELOCE -■ ERR " 
PR I NT " IN ; T ; LEFT$ ( " MOSSE "5+ a= 1 > > ; ". " 

PR I NT " MC-i IOCHI RNCORR? -■ " ; : GOSIJB60000 : PR I NT " □" 
I FLEFT$ ( I m, 1 ) =•■ " N " THENEND 
CLR: GOTO100 
END 

PRINTPR$; 

GOSIJB60000 : PRINT •• IFIN$=" "THENRETURN 
I FLEFT$ I N$.. 1 ;> = " Q " THENEND 
IFLEN(IN$>>1THEN5030 
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5020 IFI N$>= " 1 "ANDIN$<=: 3"THEHRETURH 
5030 PRI NT " QUESTA •- PILA ■- NON •- C •- E -■. " 

5040 FARI"1TO500:NEMTI 

5050 PR I NT " ”!■" •" •" -■ ■■■ " 

5060 PRINT"TT‘ ; PR $; LEFT$( " •- 

> 

5070 PRINT"T'; : r-ii:iTO50A0 
8000 PRINT-Sj"; 

8010 FORI = 1 T04 ; PR I NT " 

8020 PRINT"aM 
8030 RETURN 
9000 PRINT"a" 

60000 I N$= " " : ZT=T I : ZC=2 : ZD^=CHRÌ 20 
60010 GETZ$: IFZ$<>""THEN60070 

60020 IFZT<=TITHENPRINTUÌ< " •' li" .. ZC1 >"IJ": ZC=3-ZC: 

:ZT=TI+15 
60030 GOTO60010 

60070 Z=RSC ( Z$ y ■■ ZL=LEN < I N$ > ^ IF ZAND 127 > <32THENPR I NT 
" •■11"; :GOTO60110 

60090 IFZI_^'Ul THEN60010 

60100 IN^ = I m+Z$ ■■ PR I NTZ$ ; ZB$ Z$ ; 

60110 I FZ= 13THENI N$=M I B$ (. I N$. 2 ) ■ PR I NTCRf ; : RETURN 
60120 IFZ=20ANDZL> 1THENIN-$=LEFT^( IN$. ZL--1 > : PR INT"II" 
; 03OTO60010 

60130 I FZ= 141 THENZ$=CHRì: ( -20i+i < ZL> 11:- ) : F0RZ=2T0ZL : PR I 
NTZ$;•NEZT•GUTu60000 
60140 G 0 T060010 

61000 CRT=1024 : VIC=53248 ^ WD=40:CR^=CHR$ Q 3 >:SID=542 
72 : JS=56320 : C;M=55296 
61010 QL=214 :QI=254 : RETURN 

62000 G0SUB61000 : POKEVIC+32.. 0 : POKEVIC+33 .■ 0 : LN=LEN C P 
G$>:TB=(40-LN>/2 

62010 PR I NT " TAB < TB > LEFT$ '■ '■ -■ 

.. LN> 

62020 PR I NT " r4" TAB ( TB PG$ : PR I NT " S" TAB < TB > LEFT$ < " •- 

■■■ . LN> 

62030 PR I NT " IdM" TAB C 40-LEN C AU$ ) > /2 ) flU$ 

62040 NS$= " BATTI •- RETURN •' PER •-1NIZI ARE " 

62045 I FJFTHENMS$= " PREM T’ IL " JOVSTICK •' PER •- INIZI ARE " 
62050 TB=<'; 40-LEN aiS$>>/2> 

62060 PR I NT " TAB C TB > MS$ : PR I NT " :(!MeM«!l!!l(!k-' " -■ •- '' ■' 

( C > -■ 1983 THE CODE •- WORKS " 



'Ti 'Ti 'Jì Cfi 'Ti 'Ti 
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70 GEIIN$: IFI<>""THEN62128 
80 IF < PEEK ( JS :• AND 16 > =0THEH62128 
90 PRI NT " TRB < TB > LEFT$ C " iilk”.. K+1 > L 

EFT$a-1S$.. Q) 

00 Q=Q+1 : IFQ>LEN(MSt > THEHQ=0:K=1-K 
10 GOTO62070 

20 CLR : PR I NT " nal" : GOSUBò 1080 : GOTO 108 




Miser 



Miser è uno dei due giochi di questo libro che non è stato tradotto in ita¬ 
liano, perché da un lato avrebbe perso molto nella traduzione, dall’altro 
quest’ultima sarebbe possibile solamente intervenendo nella filosofia 
stessa del programma per cui — come quasi sempre in questi casi — con¬ 
verrebbe probabilmente riscriverlo totalmente. 

Abbiamo quindi preferito lasciarlo nella versione originale, per il diverti¬ 
mento di chi si trova a suo agio con l’inglese parlato, aggiungendo in que¬ 
sta introduzione alcune indicazioni che potrebbero esservi utili. 

Se poi qualche smaliziato programmatore di C-64 volesse cimentarsi nel¬ 
la traduzione in italiano, la McGraw-Hill sarà ben lieta di esaminarne i 
risultati per una prossima edizione del libro! 

Nella casa, abitata da un vecchio avaro, sono molti i tesori nascosti ed il 
gioco è un piccolo adventure game in cui dovrete dar sfoggio del vostro 
spirito di avventura, senza rimpiangere l’idea di aver iniziato e senza spa¬ 
ventarvi di fronte agli agghiaccianti pericoli che vi sbarreranno la via! Si¬ 
curamente molte delle cose che vi attendono una volta entrati nella vec¬ 
chia casa, non vi sono mai capitate in tutta la vita! 

Una volta iniziato il gioco, vi si presenteranno una serie di situazioni (de¬ 
scrizione dell’ambiente in cui vi trovate, oggetti particolari presenti, che 
potete ignorare o prendere, pericoli, ecc.) e una o più possibili uscite 
dall’ambiente (con i punti cardianli, N, S, E, W). Dovrete fornire dei sem¬ 
plici comandi di una o due parole, come per esempio TAKE SWORD 
(prendo la spada) o SHOOT SNAKE (sparo al serpente); se nell’ambiente 
in cui vi trovate non c’è una spada, o non c’è un serpente, oppure voi non 
avete un fucile con cui sparargli, non succederà assolutamente nulla (o 
forse il serpente ucciderà voi...) 
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Per muovervi utilizzate indicazioni come GO WEST, oppure WEST, o an¬ 
che semplicemente W. Tutti i comandi devono avere la forma 
<verbo> — <nome> (ovviamente in inglese): basta utilizzare dei verbi 
molto semplici, come GET, TAKE, OPEN, ecc. Considerate che i verbi 
vengono identificati in base alla prima o alle prime due lettere; provate 
ad usare dei sinonimi fino a trovare quelli usati dall’autore e non pensate 
che un oggetto sia inutile solo perché sembra tale in quel momento... 
(questo vale soprattutto per l’inizio del gioco: vi ricordiamo che MAT si¬ 
gnifica zerbino e cosa c’è di solito sotto lo zerbino?). 

Esistono quattro comandi particolari e molto utili: INVEN vi dice cosa 
state portando con voi; SCORE vi segnala il punteggio raggiunto; LOOK 
vi descrive l’ambiente in cui vi trovate e infine QUIT fa terminare il gioco 
(ma non desistete subito!) 

Ovviamente potreste leggere e studiare il programma per trovare le solu¬ 
zioni, ma oltre ad essere piuttosto complicato non sarebbe neanche mol¬ 
to divertente: è senz’altro più facile eseguirlo che non cercare di capirlo. 

- CRRRTTERI SPECIRLI 

SIMBOLI GRRFICI 
COMM + 

COMRHDI & COLORI 

a Rvs OH a Rvs off 

D CLERR ;« CRSR-D 

Il CRSR-L al CTRL WHT 

k CTRL CVH m CTRL PUR 


1 

PG$= 

"'M-I-S 

R " : RIJ$= " BV MRRV ' JEAN •- WIHTER " 

5 

REM 

COPYRIGHT 

':;C;> 1983 THE CODE WORKS 

6 

REM 

BOX 6905.. 

SRHTR EjRRIìRRRj CR 93160 

10 

REM 

RS OF S/ 15 

/33 GF 

50 




90 

GOTO 

62000 


100 

QI=2 

54 : riEFFNRC: 

x>=olX':;rbs(ptX':;x:o;> 

105 

POKE 

VIC+32.. 0 • pi 

OKEVIC+33.0 
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DI MR$ C 43 ) < 48.4 > ONì: ( 28 > .■ OL?-; < 28 ) '■/$ ( 38 > .■ 0$ < 

30) <PT”;!(30) 

EM= 1 : PF= 1 : FB= 1 : H$ ( 1 ) = " PJHfìT? •' 2 ) = " I •- DON •- T •- U 

NriERSTfiNn- THRT. " 

FORI =07043 ; F0RJ=1T04 : REfiDR’-i':: I.. J) : NEKTJ : REFlDR$ 
(I) :he>::ti 

DfiTFl 10. 00.. FRONT PORCH 

DftTfi2..0..0.. 12,. FOYER 70 Fi LFiRGE HOUSE. DUST IS 
EVERVWHERE 

riFlTfi3.. 1..0..0..GREfiT HALL. SUITS OF FiRMOR LINE 7 
HE WfiLLS 

riflTfl0..2..4. 16..EREfìKFfiST ROOM. IT IS ERIGHT AND 
CHEERV 

rifiTFl0.. 5.. 7.. 3.. CONSERVFITORV. THROUGH fì UI NEOW VO 

LI SEE R HEDGE-riRZE 

DRTR4.6 0 0.. RED-WRLLEn ROOM 

riRTR5.. 0.. 10.. 0.. FORMRL PRRLOR 

riRTR0.. 0.8.. 4. GREEN ERRNING ROOM 

riRTR0..S..0,7,TROPHV ROOM. RNIMRL HERDS LINE TH 

E WRLLS 

riRTR8.0.. 0.. 10.. DEN 

riRTR0..11,.9..6..BLUE DRRWING ROOM 

riRTR10.0.0.0,. LIBRARY. EMPTY SHELVES LINE WRLLS 

riRTR0.0.1.13. DINI NG ROOM 

URTA15.0.12.0.CHINESE ROOM 

riRTR0.0.0.0.$ 

riRTR23. 13.16.0.KITCHEN. IT IS BARE 
riRTR0.0..3.. 15.PRNTRY. DUST COVERS THE MRHOGFiNY 

rifìTR0.! 8 ^3. 18. GAME ROOM 

DATR21.0.17.19..SMOKING ROOM. THE AIR IS STALE 
IN HERE 

nATA21.0.18.20.PORTICO. A MURKY POOL GLIMMERS 
ON THE SOUTH SIDE 

DATA21.21.. 19.19.HALL OF MIRRORS - A GOOD PLAC 
E TO REFLECT 

DATA0.. 19.0.20..BALLROOM. IT HAS A BEAUTIFUL WO 
OD DANCE FLOOR 

DRTA0..0..0..21..CHRPEL. A TABLET SAYS -DROP A RE 
LIGOUS ITEM OR DIE! ! •- 
DATA24.15.40.25.BACK YARD 
DATA24.23.24.24.FOREST 
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425 riflTfì26.0.23.0,. POOL FiREfi. THERE IS Fi LfiRGE SWI 
MMING POOL MERE 

426 rifiTfi0.25.0.0.PUr-1P HOUSE. THERE IS POOL MHCHIN 
ERV IHSTRLLEIi HERE 

427 rifiTR35.0.31.28.MIDDLE OF THE WESTERN HRLLWRV 

428 DflTR0.0.27.0.WEST BEDROOM 

429 DRTR39.0.0.0.FRONT ERLCONV. THERE IS R LRRGE 
RORD BELOW 

430 DRTR0.0.0.0.$ 

431 DRTR0.0.38.27.MRSTER BEDROOM. THERE-S R HUGE 
FOUR-POSTER EED 

432 DRTfl0.36.0.0.REfiR ERLCONV. BELOW VOU SEE fì HE 
DGE MRZE 

433 D fl T R 3 4. y. 0.3 8. E fì S T B E I.i R 0 0 M 

434 DfìTR0.33.0.0.CLOSET 

435 DRTR0.27.36.0.^ JUNCTION UF THE WEST HRLLWRV RN 
D THE NORTH-SOUTH HRLLWRV 

436 DRTfì32.0.37.35.CENTER OF THE NORTH-SOUTH HALL 
WRV 

437 DRTR0.38.0.36.JUNCTION OF THE ERST HRLLWRV RN 
D THE NORTH-SOUTH HRLLWRV 

438 DRTR37.39.33.31.MIDDLE OF THE ERST HRLLWRV 

439 DRTflSS.29.0.0.SOUTH END OF THE ERST HRLLWRV 

440 DRTR0.42.0.41.HEDGE MRZE 

441 DRTR44.42.0.0.HEDGE MRZE 

442 DRTR41.44.43.0.HEDGE MRZE 

443 DRTR41.23.0.0.HEDGE MRZE 

444 DRTR0.42.0.45.HEDGE MRZE 

445 DfìTfì0.0.44.0.HEDGE MRZE 

446 DfìTR0.0.0.5.WRLK-IN VRULT 

447 DfìTfl0.40.0.0.DUNGEON. THERE IS LIGHT RBOVE RN 
D TO THE SOUTH 

448 DRTfì0.0.0.0.BOTTOM OF THE SWIMMING POOL, fì LR 
DDER LERDS UP RND OUT 

500 FORI = 1TO30:RERDV$ U >:NENTI 

510 DRTRGET.TRKE.MOVE.SLID.PUSH.OPEN.RERD.INVE.Q 

511 DRTRDROP. SRV. POLIR. FILL. UNLO. l-OOK 

512 DRTRGO,NORT.N.SOUT.S.ERST.E.WEST.W.SCOR.TURN. 
JUMP.SWIM.I.FIX 

550 FOR I = 1TO30 : REfìDO$ ( I >. PT'i < I > : NENTI 

560 DRTRRIPC.17.MRT.10.PRPE.13.EUCK.1.SWOR.9.KEV. 
20.VfìLV.--l.LRDD.-l 
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570 DfìTflSL IP.. 19.. RIJG ..15,. EOOK.. 23.. nOOR~ 1. CREI-1. RI 
TN. -1.. VICT-1. ORGfì-1PRRR. 14 
580 DRTRSTRI-1..PENN..12.-CROS.-11..LERF..4.ERG.5.>$< 
-1.>$<:.-1..RING.7.PRIN..8 
590 DRTRVRIJL. -1POOL. -1.. XVZZ-1. PLUG-1 
600 POR I = 1T028 : RERDOM^ I . OL'i CI : HEKTI : PRI NT " □" 

610 IiRTRPLRST IC BUCKET.. 26.. VICIOUS SNRKE. 4.. CURRMED 

SNRKE. -2.. itiGOLDEN LERF*.. 45 

611 ERTRifEULG IHG MONEVBRGif. 46.. >$<-2.. IRMOND RIH 
U# > 48 

612 DRTRfRRRE PRI NT I NGif.. 39. SWORD.. 13.. NRT0RUSTV C 
ROSS. 23.. PENNV,. 28 

613 DRTRPIECE OF PRPER. 31PRRRCHUTE WITH NO RIPCO 
Rri.34..0RIENTRL RUG..6 

614 DRTRTRRPDOOR MRRKED •-DRNGER '-2 

615 DRTRPRRRCHUTE RIPCORD..-2.. PORTRL IN THE NORTH 
NRLL.-2 

616 DRTRPRIR OF *RIJBV SLIPPERS#.. “2.-BRRSS DOOR KEV 

617 riRTRNRJESTIC STRIRCRSE LERDING IJP..2 

618 riRTRtlR-JESTIC STRIRCRSE LERIUNG EONN.. 27.. ERTTER 
ED EOOK.11 

619 DRTRORGRN IN THE CORNER.21.OPEN ORGRN IN THE 
CORNER.-2 

620 DRTRCREINET ON ROLLERS RGRINST ONE WRLL OVER. 

5.REPRIRED PRRRCHUTE.-2 

621 DRTR " SIGN •- SRVING •' ■■ DROP •- CO INS •- FOR LUCK •- " ..19- 

699 GOTO14009 

700 PR I NT : SC=0 : SF=0 : GOSIJB60000 : IFLEN C I N$ > =0THEN700 
720 IFLEFTI: < I N$. 1 :■ = " •- " THENI N$=R I GHT$ < I m . LEN < I m ') 

-1):GOTO720 

730 IFRIGHT$I ÌU . 1 > = " •- " THENI N$=LEFT#< I m . LEN< INf > 

-1>:GOTO730 

735 SP=LEN(IN$ > +1 ;PRINT 

740 SC=SC+1 ; IFMID$(IN$.SC.1> = """THENSF=SF+1 :SP=SC 

750 IFSCCLEN I m ';> THEN 740 

760 IFSF>-1RNDSF<2THENGOTO780 

770 PR I NT " PLEfiSE ■■ TVPE •- fì •- ONE •- OR ' TUO "■ WORD ' CONMRND " : 
GOTO700 

780 CV$=LEFT$ U N$. SP-1 > : F0R:K= 1TO30 : I FLEFT$ < CV$. 4 > 
=V$'::K>THENI=K : GOTO800 
790 NEXTX■GOTO50000 
800 I FSF=0THENCO$= " " : .J=0 :0070909 
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810 CO$=M I Bt I m .. SP+1.4::'; FORX= 11030:1 FC:Ci$=0$ ( X > TH 
ENJ=X:G0T0 900 

320 NEXTX: GOTO 50000 

330 GOTO700 

900 OH I GOTO 1000 .• 1000.. 2000 .• 2000.. 2000 .• 4000.. 5000.. 600 
0^ 7000^ 3000^9000^ 10000 

910 OH I -12G0T011000 .• 12000 .* 140001500016000.. 16000 
. 17000. 17000.. 17010. 17010 

920 OHI-22G0T019000.19000.20000.21000.22000.24000 
.6000.25000 
1000 IF..T=0THEH50000 

1002 IFPTX < ..T =-1THENPRI NT " I •- RM •- UNRELE •- TO •- TiO •- THRT. " 

:GOTO700 

1005 IFFNR ( J > =-1 THENPR IHT " VOLI •- RE ' RLRERDV •- CRRRVI NO •- 
IT" ■■GriTn700 

1010 I FFNR < .T > OCPTHENS1000 
1020 0LX':;PT';a;;O=“l :PRINT"0K" 

1030 X=PTX U > : IF < X;>3RNIiX<9 > 0RK= 19THENPRI HT " VOU GOT 
■••R' TRERSURE ! " : GT=GT+1 

1040 I F..T=2RNriOL';' ( 20 > =-2THENPR I NT " VOU •- FI NE •- R •' DOOR •- K 
EV! " ;OLX<20::'=0 

1045 I F..T= 10RNriOLX < 16 =-2THEN2200 

1050 GOTO700 

2000 IFJ=0THEN50000 

2005 I F.T= 1 3RNriC:P=5RNriR‘: C 5.3 > =0THEN2100 
2010 IFPTX J > =-1 THENPR I NT " THRT •-1TEN ' STRVS PUT. " : GO 
TO700 

2020 IF ( FNR <. .T <>CP > RHD FNR -J > <>-1 > THEN51000 

2030 I F..T=2RNriOLX ( 20 > =-2THEN 1040 

2040 I F.J= 10RNDOL'; 16 >=-2THEN2200 

2050 PRI NT " MOV ING IT •- REVERLS •' NOTHING. " 

2060 GOTO700 

2100 PR I NT " BEH IND •- THE •- CREI NET •-1S -■ R VRULT ! " 

2110 FV=l;G0T0699 

2200 PR I NT " VOU FI ND •- R •- TRRP ■■ DOOR ! " 

2210 OLX <16 > =6 :G0T0699 
4 P100 I F..T=0THEN50000 
4002 IFJO11THEN4030 

4005 IF FNR < .T > OOP > RHE C FNR < J ) <>-1 ) THEN4030 

4010 I m= " SCRRWLED ■-1N •• BLOOD •- ON •- THE ■■ INSI DE •- FRONT •- CO 
VER"IS"THE"NESSRGE." 

4011 GOSUE53000;PRINT 
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4020 PRI NT " ••• VICTORV ' IS •' fì PRIZE-WIHNIHG •- WORD : G 

OTO700 

4030 I FJ=7THENPR I NT " TRV TURNING -IT.": Gi:(TO700 
4040 IFJ<>12THEH4120 

4050 I FC:P=0fiNDDIJ=0THENPR I NT " SORR V.. - THE •- DOOR -■ IS •- LOG 
KED.":GOTO700 

4060 I Fi::P=0RHDDIJTHEHPR I NT " IT -■ S RLRERD V - OPEN. " : GOTO 
700 

4070 IFCPOFTHENS1000 

4080 I Nì:= " VOLI OPEN ■- THE •- DOOR. -■ VOU - LERN •' OVER - TO •- PEER 
■ IN,. -■RND- VOU- FRLL- IN! " 

4090 GOSUB53000:CP=47:PRINT :G0T0699 

4120 IFJO13THEN4160 

4130 IFOLZ C 26 > OCPTHEN51000 

4140 PR I NT " THE CRBI NET -1S -■ EMPTV •- AND ' DUSTV. " 

4150 I N$= " SCRIBBLED -■ IN -■ DUST ' ON •- ONE - SHELF - RRE -• THE -• W 
ORDS. •■■•'BEHIND -NE-'. " 

4155 GnSUB5:-:000 : PR I NT : GOTOTOO 
4160 IFJ022THEN4190 

4170 IFFNR < J :> OCPRNDFNR C J > <>-1THEN51000 
4180 PR I NT " THE -' BRG -' IS -' KNOTTED - SECURELV. " : PR I NT " IT -' 
NON- T-'OPEN. " :GOTO700 
4190 IFJO27THEN4230 
4200 IFCP<>5ORFV=0THEN51000 

4210 IFVOTHENPRINT"IT-S-RLRERDV -OPEN.":GOTuTOG 
4220 PR I NT " I •- CRN - T-1T - S -' LOCKED. " : GOTO700 
4230 IF J<> 16THENPRI NT " I - DON -' T - KNOW -' HOW - TO •- OPEN - THR 
T.":GOTO700 

4232 IFr:P<>21THÉN51000 

4235 I FGG=0THENPR I NT " IT - S - STOCK •- SHUT. " : GOTO700 
4240 IFOL,’'; C 24 ;■ =-2THENPR I NT " IT - S - RLRERDV ' OPEN. " : GOT 
0700 

4250 PR I NT " RS - VOU - OPEN -' IT- SE VERRO -' OB JECTS " : PR I NT " 
SUDDENLV-RPPERR!" 

4260 0LZ(24)=-2:0LZ'::25>=21 :0LZ(19>=21 :0LZa7>=21 :G 
0T0699 

5000 I F..T-0THEN50G00 

5005 IFPTZ C J > >-1THENIFFNR -r J ) OCPRNDFNR ( J > <>-■ 1THEN5 
1000 

5010 IFPT.-'; ( J > =-1THENPRI NT " THERE - S - NOTHI NG - WRITTEN -' 
ON-THRT.":GOTO700 

5020 IFJ03RND.T011 THENPR I NT " THERE -' S -' NOTH I NG -' WR ITT 
EN-‘ON- THRT. " : GOTO700 
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5030 I FJ= 11THENPRIHT " THE FRONT •" COVER " IS •-1NSCRI BEH •- 
IN- GREEK. ■■ GOTO700 

5040 PRI HT " IT ••• SRVS.. •- •-12-35-6 •-. " : PRI NT " HMM. . •- LOOKS •- 
LIKE'fi'COMBINRTION." 

5050 KC=1-GOTOFOG 

6000 PR I NT " VOLI RRE •- CRRRVING •- THE ' FOLLOWING • W" 

6010 FI =0 •• FOR 1TO 27:1FOL^: C X =-1 THENPR I NTOM$ K > : 

FI = 1 

6020 I FX= 1 fiNDBFflNDOL*; 1 > =-1 THENPR I NT " •- THE •" BUCKET ■- 
IS'FULL-OF'WRTER." 

6025 I FX= 14RNriOLX 14 >=-1 THENPR I NT " •- ' BETTER ■■ FIX IT 
> " 

6030 NEXTX : IFFI =0THENPR I NT " NOTHI NG RT ' RLL. " 

6040 GOTO700 

7000 PR I NT " DO VOLI •- RERLLV •- WRNT ' TO •- QUIT •- hJOW? " 

7001 GOSLIB60000 ; IFI N$= " " THEN7001 

7002 I FLEFT$ < I Ht- 1 > <> " V " THENPR I NT : PR I NT " " ; G0T07 

00 

7005 PRINT"n" 

7010 PR I NT " Wt'OLI flCCLiriULRTED " ; GT" TRERSURES.. " 

7020 PR I NT " FOR " R ■- SCORE ■- OF ” ; GTif 20 ; " PO INTS. " 

7030 PR I NT " < 1 00 •' POSSIBLE ) " ; I FES=0THENPR I NT " :?HOWEVE 
R.. •'VOLI- DID- NOT- ESCRPE. " 

7040 PR I NT " :i!rrH IS •- PUTS VOLI IN R -• CLRSS •- OF ; " : IFESTHEN 
GT=GT+1 

7050 ONGT+1GOTO7060.7070 7075 .• 7030 ..7100.7110^7115 
7060 PR I NT " <BEG INNER RDVENTLIRER> " ; G0T07120 
7070 PR I NT " CRriRTEUR ■■ RDVENTURERO " : G0T07120 
7075 PR I NT '■ < JOLIRNEVriRN •• RDVENTLIRER:> " : G0T07120 
7090 PR I NT " CEXPERIENCED ' RDVENTLIRER> " : G0T07120 
7100 PR I NT " CPRO '■ RDVENTIJRER> " : G0T07120 
7110 PR I NT " CriRSTER •' RDVENTLIRER> " : G0T07120 
7115 PR I NT " <GRflNDMRSTER " RDVENTLIRER> " 

7120 IFGT06THENPRI NT " JIEiETTER LUCK -■ NEXT " TI ME ! " 

7150 END' 

8000 IFFNR ( J <>-1 THENPR I NT " VOLI ' RREN ' T ' CRRRV I NG - IT! 

":GOTO700 
8010 X=PTX(:J> 

8015 IF X>3RNDX<9 > ORX= 19THENPRI NT " DON -■ T - DROP - 5^TREfì 
SURESi* ! " : GOTO700 
8020 IFCP=19flNDJ=19THEN8100 
8030 IFCP=22RNDJ=20THENS200 
8040 OLX < PTX C J > > =CP;PRINT"OK":GOTO700 
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8100 

8105 

8110 

8130 

8200 

8210 

8215 

8220 

8221 

9000 

9010 

9020 

9030 

9040 

9050 


9 1 flR 

9110 


9111 

9120 

9200 

9210 

9220 

9300 


10000 
10010 
10020 

10030 

10040 

10045 


10050 


1 0060 
1 1000 
11010 


11020 


PRI NT •' fiS '■ THE PEHN V " SIHKS •- BELOW •" THE -■ SURFflCE ■■ OF " 
PRI NT " THE " POOL. -• fì - FLEETI NO •-1MRGE ' OF •- fi •- CHfiPEL " 
PR I NT " WITH " DfiNCERS " OUTSI DE ' fiPPEFlRS. " 

R;^<21.3>=22 : OL;i:< 12>=-2 : GOTO700 

PR I NT " EVEN •' EEFORE IT •- HITS •- THE •' GROUND.. THE " : PR 

I NT " CROSS FfìDES fiWfiV " 

PR I NT " [HITHE •' TfìBLET '' HfiS •- DISI NTEGRfiTED. " 

PR I NT •• Wt'OLI -• HEfiR •- HUSIC •- FROM THE ' ORGfiN. " 

GG= 1 : OL*i C11 =“2 : Rt 22 > = " CHfiPEL " 

OM$ 24 =" closed •- orgfin -• plh v i ng •- nus i c • i n •- thè co 

RNER” •• GOTO700 

IFJ=0THENPRINT"SfiV'-WHfiT???" : GOTO700 

IFJ=14THEN9100 

IFJ=15THEN9200 

IFJ>28THEH9300 

PR I NT " OKfiV. •' ; RI GHT$ ( I N$.. LEN < I N$ > -SP ) ; " •-. " 

FORK= 1TO1000 : NEXTX ; PR I NT " NOTHI NG •- HfiPPENS. " • GO 
TO700 

IFCPO40RCHTHENPRINT"NOTHING "HfiPPENS. " : GOTO700 
I N$= " THE SNfiKE •-1S •- CHfiRMED " BV '' THE ' VERV •- UTTERFlN 
CE' OF' VOLIR'WORDS, " 

GOSUB53000SPRINT 

CH=i : ol;^c2>=-2 ; ol/;(:3>=4 : GOTO 700 

IFCPO80RP0THENPRI NT "NOTH ING-HFIPPENS. " : GOTO700 

PR I NT "fi PORTfiL -■ HfiS OPENED •-1N •• THE - NORTH ' WfiLL ! ! " 

PO:= 1 : R>: < 8.. 1 ) = 17 : OL:';’ 18 > =8 : GOTO700 

PR I NT " fi •- HOLLOW ' VOI CE ' SfiVS- - WRONG - FlDVENTURE -. 

":GOTO700 

IFJ04THENPRI NT " I - WOULDN T •- KNOW - HOW. " : GOTO700 
I FOL:"; < 1 > <>-1 fiNDOLI^i C 1 > <:>C:PTHEN5 1000 
I FBF=0THENPR I NT " THE - BUCKET •• IS FlLREfiDV '' ENPTV. " 

:GOTO700 

IFCP=19THENPRINT"OK":GOTO700 
I FCP= 10fiNriFBTHEN 10050 

PR I NT " THE '■ WfiTER - DI SfiPPEFlRS - QUICKLV. " ; BF=0 : GOT 
0700 

PR I NT " CONGRFlTULfiT IONS ! VOLI •- HfiVE - VfiNQU I SHED " ^ P 
RINT"THE -FLfiriES. " 

FB=0:BF=0 :0010693 
IFJ=0THEN50000 

I FPT;^ <: J > =-1THENPRI NT " THfiT •" WOULDN ' T - HOLD ' fiNVTH 
ING.":GOTO700 

I FFNfi C J > OCPfiNDFNfi < J ) <>-1THEN51000 
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11030 IFJ04THENPRIHT " THFiT •- WGULDN T •- HOLD •- AHVTHIHG. " 

• GOTO700 

11040 IFEFTHENPRI HT " IT S '' fìLREflDV " FULL. " : GCiTO700 
11050 I Fr;P=25fiHriPFTHENPR I HT " r D '' RfiTHER LERVE " THE ' ME 
RCURV- RLOHE. " :GCiTO700 

11060 I Fi:;p<>23flHrii::PC> 19THEHPRI HT " I •• DdH •- T •- SEE •- RHV ' WR 
TER-MERE.":GOTO700 

11070 PRI HT " VOUR ••• EUCKET -1S - HOW - FULL. " : BF= 1 : GOTO700 
12000 IFJ=0THEH50000 

12010 IFJO12RHD J027THEHPRI HT " I ' DOH T - KHOW - HOW " TO •- 
LIHLOCK - OHE. " : GCiTO700 
12020 I FC:P<>0RHrii;;p<>5RHrii:;P<;>6THEH51 ©00 
12030 I Fi::P=0RHriJ= 12THEH12200 
12040 I Fi:;P=5RHriJ=27THEH 1230© 

12050 I FCPOeORJO 120R0L^; < 16 > =-2THEH5100© 

12100 PR I HT " THE '' TRRPnCiOR - HRS - HO - LOOK " : GOTO700 
12200 IFDUTHEHPRI HT " IT - S •- RLRERDV ' LIHLOCKEH. " : GOTO700 
12210 I FOL.'i < 20 > <>-1THEHPRI HT " I - HEED •- R - KEV. " ; GOTO700 
12220 PR I HT THE - DOOR - ERSILV - UHLOCKS - RHD - SWIHGS ' OPEH 
. " : riU=l : G0T0699 

12300 IF VOTHEHPRI HT "IT- S RLRERD V •- OPEH. " : GOTO700 
12305 IFFV=0THEH51000 

12310 I FKi:;=0THEHPR I HT " I - DOH - T - KHOW - THE - COME IHRTI OH. 

"•GOTO700 

12320 PR I HT " OK. - LET - S ' SEE. 12.. 35.. 6.. " : PR I HT " CCLIC 
K ! > •- THE •- DOOR - SW I HGS - OPEH. " 

12330 V0= 1 : R:-; < 5.. 3 "> =46 : G0T0699 

14000 I H$= " Wt’OU •- RRE •-1H - THE - " +R$ ( CP + ". " : GOSUB53000 : 
PRIHT 

14010 FORK= 1T02S : I FOL‘; •; K ) OCPTHEH1402© 

14011 I m= " THERE •-1S •- R - " +0M$ < X > + " '' HERE. " : PR I HT : GOSUB 
53000 •• PRIHT 

14020 I FX= 1RHDBFRHDOLX < 1 ) =C:PTHEHPR I HT " ' - ' THE - EUCKET 
•- IS - FULL-OF - WRTER. " 

14030 HEXT X 

14040 IF CP=25RHDPF THEH PRIHT "OTHE'POOL -1S-FULL -0 
F-LIQUID-MERCURV!" 

14050 IF CPO250RPFTHEH14060 

14055 PR I HT " mHE ^ POOL - S - EMPTV. " : IFOLX C 7 >048THEH14© 
60 

14056 PR I HT " m •- SEE " SOMETHI ^■^G - SHIHV -1H - THE - POOL ! " 
14060 IF CPO10ORFE=0THEH 14090 

14070 PR I HT " [«ITTHERE -1S - fi - HOT - FI RE - OH - THE - SOUTH - WRLL ' ' 
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14080 PRI NT " IF I GO •- THRT ' WAV " I •- LL •- BURN ' TO •- DERTH ! " 
14090 IF CPO16THEN14110 

14100 I = " :ì!I=I -• RICH. '• FULL •' VOI CE •- SAVS-• RITNEW " IS •- fì C 
HflRMING'WORD--. " 

14105 GOSIJE53000 : PR I NT 

14110 I FCP=26THENPR I NT " OTHERE IS •- A " VALVE - ON •- OHE -■ OF -• 

14115 I Fi::P=23THÉhPR I NT " [fJTHERE -1S ^ A •- LE AK V F AUCET •• NE A 
RBV. " 

14120 I FCP= 10ANDFB=0THENPR I NT " :?ITHERE '' IS •' EVIDENCE OF 
A"RECENT'FIRE"NERE." 

14125 I FCP=5ANriFVTHENPR I NT " SITHERE " IS - A - VAULT " IN " THE 
■EAST'WALL." 

14126 I FCP=5ANri vÒtHENPR I NT " THE " VAULT ' IS " OPEN. " 

14127 I FCP=0ANDDUTHENPR I NT " idFlN '■ OPEN " DOOR " LEADS •- NORT 
H " 

14130 IFCP048THENPRI NT " JJHBVIOUS " EX ITS : " : IFRX CP. 1 ) 
>0THENPRINT"N ' '' ; 

14140 IFRX CP. 2 >0THENPR I NT " S " " ; 

14150 IFRX< CP.. 3 > >0THENPR I NT " E ' " ; 

14160 IFRX < CP. 4 > >0THENPR I NT " W •• " 

14170 PRINT:GOTO700 

15000 IFJ<>8ANriJC> 1 SANI!JO2STHEN50000 

15010 I F < J=8ANriCPC>48 > OR C J=28ANIiCP<>25 > THEN5 1000 

15015 IFJ= 18ANDCP<>2ANriCP'^>27THEN51000 

15020 I FJ=8THENCP=25 •• G0T0699 

15030 IFJ=28ANDPFTHENPR I NT " THE '• POOL IS '■ FULL ' OF ■- MERO 
IJRV ! " : GOTO700 

15040 IFJ=28THENCP=48:G0T0699 
15050 IFCP=27THENCP=2:G0T0699 

15060 IFOLX < 9 > =-1THEN15070 

15061 I N$= " THE '• SU I TS " OF '■ ARMOR '' PREVENT VOU '■ FROM " GO IN 
G 'IJP ! " : GOSUB53000 

15062 PRINT:GOfO700 

15070 PR INT " THE •- SU I TS '■ OF " ARMOR - TRV •• TO •- STOP ' VOU.. " 

15080 PR I NT " BUT '■ VOU •- F IGHT '■ THEM '• OFF •• WITH " VOUR " SWORD. 
":CP=27:G0T0699 

16000 I FCP=0ANririU=0THENPR I NT " THE ' IìOOR '' IS '■ LOCKED '' SHU 
T.":GOTO700 

16010 IFRX < CP.. 1 > =0THEN52000 

16015 I FCP=0THENPR I NT " WTHE - DOOR '' SLANS SHUT •- BEH IND " V 
OLI ! " 

16020 CP=RX(CP.. 1 > : G0T0699 
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17000 I Fi::F'= 10FlNriFETHEHPR IHT " VOU - HflVE •- BURNÌ ■- IO •- R •- OR I 
SP!": END 

17010 I Fi::P= 4RNDC;H=0THEH 17060 
17030 ri=2 :1FI =21 OR I =22THEHri==3 
17040 IFR,--; CP.. D > =0THEN52000 
17050 CP=R;ì (. CP .• D > : G0T0699 

17060 I FPS=0THEHPRI HT "THE SHRKE -■ IS •- RBOUT ■ TO RTTflCK ! 
" :PS=1 ; 13010700 

17070 PRI HT " THE •- SHRKE •- EITES •' VOU ! " : PRI HT " VOU - RRE ■■ UER 
n.": END 

19000 I FR‘; < CP.. 4 =0THEH52000 
19010 CP=R.’i•:]CP j4) '■ G0T0699 

20000 PR I HT : PR I HT " IF " VOU •- NERE •" TO '' QUIT •- HOW. " : PR I HT " V 
OLI " HOULD HRVE -■ R - SCORE -■ OF " ; 

20010 PR I NTGT*20 ; " PO IHTS. " : PR I HT " C100 •- POSSIELE ) W" 
20020 PR I HT " no VOU •-1. HHEED '■ WISH ■- TO •' QU IT •- HOW? •- " ; 

20030 G 0 S U B60000 

20040 PRIHT: IFLEFT$<IH$.. i:;- = "V" THEH 7010 
20050 I FLEFT$ < I H$.. 1 > <> " H " THEHPRI. HT " PLERSE ■■ RHSWER •- VE 
S OR HO " • GOT020020 
20060 PRINT"OK":PRINT :GOTO700 

21000 IFJ07THEHPRI HT " I •' DON T •' KNOW •" HOW •- TO •- TURH ■■ SUCH 
••■R'THIHG. " :GOTO700 
21010 IFCP026THEH51000 

21020 I H$= " WITH MUCH -■ EFFORT. •' VOU -■ TURH THE •- VRLVE 5 ■ T 
IMES. VOU HERR ' THE ' SOUND " 

21030 I H$= I H$+ " OF LI QU ID ' " : GOSUE53000 : PR I HT : PR I HT " F 
LOWING THROUGH PIPES. " 

21040 PF=1-PF 

21050 I FPF=0RHriOL?i: < 7 > =-3THEN0L‘i ( 7 > =25 : GOTO700 
21060 IFPFRHDOL/; ■. 7 > =25THEH0L’; < 7 > =-3 : GOTO700 
21070 6OTO700 

22000 IFCP<>27RHriCP<>29RHriCP<>32THEN22050 

22010 PRIHT"VOU-JUMP..":IFCP=27THEH22500 

22020 IFOL.'; C14 > =-1THEN22100 

22030 IFOL’.' <: 27 > =-1THEH22200 

22040 PRIHT"VOU-HIT- THE -GROUND.":GOTO22540 

22050 PR I NT " THERE - S HOWHERE •- TO - JUMP. " : GOTO700 

22100 PR I NT " THERE -1S - HO - WAV TO OPEN - THE PRRRCHUTE ! " 

:GOTO22040 

22200 PR I NT " VOU •- VRNK THE RIPCORD - RND - THE " 

22210 PR I NT " •• CHUTE - COMES '' EILLOWI NG - OUT. " : I FCP=32THE 
HCP=40:G0T0699 
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22220 


.'2230 

.'2500 

;25Ì0 

12520 


22530 

22535 

22540 


24000 


24010 

24020 

24030 

25000 

25010 

25020 

25030 

25040 


25050 


25060 

25070 


50000 
5 1 000 
52000 
53000 
53005 
53010 
53020 

60000 

60010 

60020 

60030 


PRI NT " VOLI LflND " SfìFELV " : PRI NT " WZiONGRRTULfiT IONS 
-ON-ESCfiPING!" 

ES=1 : Gi:iTO7010 
IFJMTHEN22530 

PR I NT " VOLI HfìVE •- LfìNDED •- DOWN-STfl IRS^ PR I NT ” AND 
NARROWL V ESC APED -■ SERIOUS " 

PR I NT ’• INJIJRV. PLERSE DON •- T ' TRV 'IT'' RGRIN. " : JM= 

1 : CP=2 •• G0T0699 

PR I NT " NON ••• VOU •- VE •• BONE '•IT!-' VOLI IGNORED " 

PR I NT " NV WRRNING.. •- RND •' RS •- R •- RESULT " 

PR I NT " VOLI ••• HRVE " BROKEN •- VOUR -■ NECK ! " : PR I NT " Wr'OU •- 
RRE- DERIi. " :END 

I FCP= 1STHEN PR I NT " THE '' WATER •• IS - ONLV •- R •- FEW •-1NC 
HES-DEEP.":GOTO700 

I FC:P<.>25THENPR I NT " THERE S •- NOTHI NG -■ MERE TO •- SWI 
N-IN!":GOTO700 

IFPFTHENPRINT" IN■•■MERC;LIRV? ' NO- WRV ! " : GOTO700 
PRI NT"THE POOL ' IS•-EMPTV. " : GOTO700 
IFJ=0THEN50000 

I F.T=7THENPR I NT " I •- RIN T •- NO •' PLUNEER. " ^ GOTO700 
IFJ<> 17THENPRI NT " I -■ WOULDN •- T •- KNOW •- HOW. " ^ GOTO700 
IFFNR J > -OCPRNDFNR ( J > <>-1THEN51000 
I FOL.-i < 14 > =-2THENPR I NT " IT S •• RLRERDV •- FI NED. " : GO 
TO700 

I FOL,--i < 17 > <>-1THENPRI NT " I •- NEED •- R •- RIPCORD. " : GOT 
0700 

PRINT" I NNOEXPERT•- EUT •-1 ■■ THINK •-1T LL WORK. " 
OLX(27 > =OLX(14):OLX <14)=-2:PTX(17)=27 :OLX(17) 
=0 :GOTO700 

PRINTH$(ÈM> : EM=3-Er'1 : GOTO700 

PR ! NT " I DON T •- SEE •-1T - NERE. " : GOT O700 

PR I NT " IT S IMPOSSIBLE TO •- GO •- THRT •' WfìV. " : GOTO700 

IFLEN(IN$)O40THENPRINTI m ; : RETURN 

OE=40 

IFNI II# (I Ni:, OE.. 1 ) <> " •• •' THENOE=OE-1 : GOTO53010 
PR I NTL.EFT$ ( I Ni.. OE > : PR INTRI GHT$ ( I Ni .■ LEN ( I Ni ) -0 
E>; : RETURN 

I Ni= " " : 2T=T I : ZC=2 : 2DÌ=CHRÌ ( 20 ) 

GETZi: IFZiO " "THEN60070 

I FZT<=T I THENPR INTNI Di ( " •- li".. ZC1 ) ; " II" : ZC=3-ZC 

:ZT=TI+15 

GOTO60010 
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60070 Z=RSC(Z$ >:ZL=LEH a >: IF C ZRND127)<32THENPRINT 
:GOTCi60110 

60090 IFZL>QI THEN60010 

60100 IN$=IN$+Z$:PRINTZ$;ZD$;Z$; 

60110 I FZ= 13THENI N$=ri ID# < I N$.. 2 > : PR INTCR# ; ; RETURN 
60120 I FZ=20RNriZL> 1THENI N$:=LEFT$ CI N$ZL-1 ) : PR I NT " II" 
;:GOTO60010 

60130 I FZ= 141 THENZ$=:i::HR$ C -20# < ZL> 1 > :• ^ F0RZ=2Ti:iZL : PR I 
NTZ$; : NEKT : Gi:iTO60000 
60140 GOTn6001R 

61000 CRT= 1024 : V11::=53248 : WD=40 : CR:f=CHR$ ( 13 > : SI D=542 
72 :JS-56320:CN=55296 
61010 QL=214 : QI =-'254 : RETURN 

62000 G0SUB61000 : POKEVIC+320 : POKEVIC+33.0 : LN=LEN < P 
G$> :TE=(40~LN>.-'2 

62010 PR I NT " TRE TE ) LEFT$ ( " •- -■ ' ■- 

62020 PR I NT " a" TRE < TB ) PQ$ ■ PR I NT " a" TRE ( TE ) LEFT$ C " •- " •• •' 

62030 PR I NT " WJP" TRE < ( 40-LEN < fiUt- ) > /2 > fiU$ 

62040 m$= " ERTTI •- RETURN PER INIZI RRE " 

62050 TE= ( ( 40-LEN C f1S$ > /2 > 

62060 PR I NT " mim." TRE < TE ) MS$ •• PR I NT " WtlMuMilUlk-' " •- -■ •- " •- ^ 

■ C > 1983 THE CODE " WORKS " 

62070 CETI m : IFI mo " "THEN62120 
62080 IF < PEEK(JS)RND16 > =0THEN62120 
62090 PRINT "a?M(!lBMi!M!!Mi!l?l!!Mi!!3"TRETB>LEFT^< ";ilk" K+1 )L 
EFT^:(NS$.. Q> 

62100 Q=Q+1:1 FQ>LEN ( MSt > THENQ=^0 ^ K= 1 -K 
62110 G0T062070 

62120 CLR •• PR I NT " □a" : G0SUB61000 : GOTO 100 




Mad 



Questo è il secondo dei due programmi che sono stati lasciati nella ver¬ 
sione originale, perché la sua traduzione avrebbe creato una marea insor¬ 
montabile di problemi. Mad infatti inventa delle storie a partire da un 
certo numero di parole che voi dovete inserire dietro richiesta del C-64: 
l’esecuzione del programma, così come è strutturato, è possibile solamen¬ 
te in inglese, dove l’infinito dei verbi equivale al presente per tutte le per¬ 
sone (tranne la terza singolare), dove non esiste la necessità di concorda¬ 
re aggettivi e sostantivi e dove basta aggiungere una "s” per fare i plura¬ 
li. In italiano invece le regole grammaticali imporrebbero dei controlli e 
delle variazioni sulle parole inserite la cui gestione sarebbe troppo diffi¬ 
cile e in ogni caso del programma originario resterebbe ben poco. Anche 
in questo caso la McGraw-Hill sarà ben lieta di esaminare le proposte de¬ 
gli eventuali programmatori C-64 abbastanza "mad” da lanciarsi nella 
creazione di un programma analogo in italiano. A chi volesse esercitare il 
suo inglese, nel frattempo, consigliamo di introdurre le parole richieste 
(aggettivi, verbi, nomi, avverbi, malattie, ecc.) senza che queste abbiano 
legami fra di loro, per rendere le storie ancora più pazze e divertenti. 
Per cambiare la routine di creazione delle storie e sostituirla con una 
propria, basta agire sulle linee dalla 10000 alla 11540 (senza oltrepassare 
la linea 60000, dove inizia la routine di presentazione standard); bisogna 
tenere conto della seguente tabella e inserire le variabili nel racconto 
(ognuna è indicata dal simbolo "%” seguito da una lettera). 

%A avverbio 

%B parte del corpo 

%C disastro (calamità naturale) 



%D malattia 
%E esclamazione 
%J aggettivo 
%N nome 
%P nome plurale 
%U numero 
%V verbo 
%Y animale 

%Z nome di una persona che conoscete 

Inoltre il segno " = ” fa iniziare una nuova riga al programma, mentre 
due segni " = " producono una riga vuota sullo schermo. La fine della sto¬ 
ria deve essere segnalata da uno SHIFT Q. 

-CRRflTTERI SPECIALI UTILIZZATI -1 

SIMBOLI GRAFICI 
• SHIFT Q 1 COMM + 

COMANDI .fc COLORI 
a RVS OH ■ RVS OFF 

□ CLERR Pi CRSR-D 

Il CRSR-L a CTRL WHT 

k. CTRL CVN ri CTRL PUR 


1 

PG$=" - M- A ri 


= "B 

V-GLEN-FI 

SHER" 

5 

REM COPYRIGHT O:) 

19 

83 THE CO 

DE 

NuRKS 

6 

REM BuX 690 

5.. SANTA 

BARBARA.. 

CA 

93160 

7 

10 

REM AS UF fc! 

/16/83 

GF 




50 







90 

GOTO 62000 






1 00 

riIMP$';:26> 






102 

POKEVIC+32. 

9 : POKE' 

v‘IC 

+33.. 9 



105 

riIMM$(100) 






1 10 

FORI=01025 : 

REArip$ 

(!> 

:NEXTI 



150 

NS=5 : DI MUSI! 

<NS) 





160 

F0RI=1T0NS; 

USDa> 

= I : 

ne>=:ti 




a HOME 
n CRSR-U 
[il CTRL VEL 
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200 SC;=HS 'REM RESTART 
300 PRINT"."H!Mi!l" 

310 IFSC=0THEH160 

320 RESTORE : POR I = 1 TCi26 : REAUT^ : NEKTI 
330 PRI NT '* IHSERISCI •- LE •- SEGUEHTI •' PAROLE : " : PRI NT " < I 
N ■■■ INGLESE. PER ■- FAVORE ) W" 

340 IFSO C NS-3 THEN400 
350 F0RI=1T0NS:SN=I 
355 IFUSDc;SN::'>0THEN365 
360 NEXTI 

365 USD < SN ;■ =--1 GOTO406 

400 I = INT<RNria)#SC> + l 

401 SN=IJSD<I) 

402 IFUSD I > < 1THEN400 

403 ijSD';;i::'=-i 
406 SC=SC-1 
410 1=0 

500 PEADS^ : IFLEFT^ C S $1 <> " • " THEN500 
510 I = I +1 :1FIOSNTHEN500 
520 N=0 

530 S$=M I Ii$ < S$ . 2.. 255 

1 flO0 I FS$= " " THENM$ C N =r'1$ ■ N=N+1 : ri$= " " : READS# : I FLEFT 
$05$,. l) = "t"THEN2000 
1010 C:$=LEFTl: S$ .. 1 > : Sf=ri I D f- < S$ .. 2.. 255 > 

1020 I Fi::$<> " " THENM$=M$+Cf • GOTO 1000 
1025 IFS$=""THEN1000 
1030 i::$=LEFT$ ( S$.. 1 > : S$=r'11 Ii$ < S$ 2.. 255 
1040 T=ASC( C$ >-ASC("A"> 

1050 PRINT 

1100 PRiNTP$a>; " : 

1110 GOSUB60000 : T $=I N$ : IFI Nt= "" THENPR I NT " HI ": : GOTO 
ì 0!=i0 

1115 IFI N$= " Q " THENPR I NT " EldJjRAZIE ■■ PER AVER •- GI OCAT0 " 

: END- 

1120 Nf=M$+Tf: GOTO1000 

2000 I=-l:PRINT 

2003 N=N-1 : m N > =m < N >+" " 

2005 I = I +1 ; IFI>NTHEN3000 
2007 

2010 I Fm= " " THEN2005 

2020 Ci:=LEFT$ < m -.. 1 > : M$=M I m, 2.. 255 > 

2030 I FC$<> " " ANDCtO " = " THENW$=W$+C$ : GOTO2010 
2050 IFLEN<L#> +LEN(Wf> +1>39THENPRINTLf -Li -"" 
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2060 

2065 

2070 

3000 

3010 


3020 

3025 

3500 

10000 

10004 

10005 


10010 

10020 

10030 

10040 

10050 

10065 

10070 


1007! 


10080 


10090 


10100 


10110 

10120 

10130 

10140 


10150 

10160 

11210 


11220 


L$=L$+"'"+Wt; 

I FC$= " = " THEHPRI NTL$ : Lf = '* " 

W$="":GOTO2010 
PRINTL$:L$=''" 

PRI NT " VUOI GI OCfiRE - RHCORR? - " ; ^ GOSUB60000 : R J 
$=INf 

I FLEFT$ < RJI:. 1 > = " N " THEH3500 
GOTO300 

PR I NT " :i?I«!!Ii!l3RRZ IE '' PER •- RVER '' GIOCRTO. " : END 
DRTR " UN •' RVVERB10 ".. " UNR ' PRRTE •- DEL •- TUO '' CORPO " 
REM CCRLRMITR' 

DRTR " UN " DISRSTRO ".. " UNR ' MRLRTT IR".. " UN •- ESCLRMR2 
IONE" 

DRTRF.. G.. H. I. " UN '' RGGETTIVO " 

DRTRK..L.M. "UNaCiME".0 

DRTR " UN '• NOME - PLURRLE ".. Q.. R > S. T 

DRTR " UN -■ NUMERO ".. " UN ' VERBO 'M4.. X. " UN " RNIMRLE " 

DRTR " IL NOME ' DI •- UNR •' PERSONR •• CHE - CONOSCI " 

Di::^jpi " '51 p;-; : ss " 

DRTR " I " RECENTEV PURCHRSED '' R '' J " COMPUTER ' FROM ' 
R " STORE. I GOT •-1T ' FOR ' " 

DRTR " ^i’Z. WHO JUST •• LOVES ^ RLL ■- SORTS ' OF ' ’U ' GRDGE 
TS " 

DRTR " WHEN " I •- BROUGHT THE -• >iJ ■- COMPUTER ' TO ' MV ' 'iN 
. ■••IT''WRS'SO";^J" 

DRTR"THRT' IT''MRDE 'MV- XB' RCHE. I •-RERD■■ VOUR •-KJ 
' MRNURL.. 

DRTR " BLIT '• IT " DIDN T ^ HELP ^ ME ' UNDERSTRND " THE '' y.J - 
COMPUTER. " 

DRTR " I " THINK •- THIS COULD LERD TO ' R ■■ SERIOUS '' CRS 
E '0F -7;D. " 

DRTR " ••• EVERV •- /:J ' PROGRRM ' I •- WRI TE " SEEMS •- TO BE " KJ 
. '■CRN'-1' EKCHRNGE'- " 

DRTR " TH IS " y.J ■' COMPUTER '' FOR '" ONE '' THRT " NILL - LET '' M 
E 

DRTR " ^ PROGRRMS. '■ RND " THRT ■' NON ' T '’ MRKE MV '• XB SOR 
E?" 

DRTR " ==P. S. I " HRVE '' J'JU '' OTHER '• XP, ' RND " THEV •- RLL 
-WORK''SETTER'THRN'-" 

DRTR " VOUR ■' XJ ' LITTLE " XW ! " 

DRTR " «ONCE ^ UPON '■ R '■ TI ME. - R '" XJ ' WOMRN '' FELL ' IN ' LO 
VE ^ WITH"HER ^ XJ' COMPUTER."" 

DRTR " SHE ■' WOULD ^ BEGIN ' ERCH ' DRV •- BV " KI SS ING ' I TS ' 
^;N " RND •' XP •' CRRESSI NG " I TS '■ " 




11230 DfiTR " ;;P. - THEH •- ONE " DfiV. ' TRRGEDV ' STRUCK : ' SHE •- RW 
OKE. 'RHIi- FOUNri- HER" 

11240 DRTR " COMPUTER ' DESTROVED ■■ BV - R •- 'iC. ■■ :iE ! ' SHE •- SRI 
D.. 'HOW'CRN-rEVER'BE'" 

11250 DRTR " ’/iJ ■' RGRIH? '' BUT ■' THEN •- R ■■ " 

11260 DRTR " WOHDERFUL ■- THING CRME ■- TO •- PRSS ■ - %fl•- R ' BRRN 
D " NEW :ìJ •" COMPUTER •- RPPERRED " 

11270 DRTR " ■■■ ON ' HER ' DESK .'IT •- HRD •- R ■■ /iJ ' USERS •- S '• “iN. •- RN 
D'IT'WORKED'' 

11280 DRTR " :-;R ! -• •- XE ! •- THE -■ 'ÌN ' LIKES -• ME ! ^.. •- SHE •- EXCLRI ME 
D.==" 

11310 DRTR " •=HOW '' TO •- GET '' RHERD ...==" 

11320 DRTR " FIRST.. ' VOU ■- MUST ' RLWRVS ' TRV TO •- XV ' VOUR ' BO 
SS ' *' 

11330 DRTR " GO TO " WORK •' Xfi ' RND ■- RLWRVS ' ERT -• VOUR •- Xì \" RT 
•'VOUR - ‘:N. •••" 

11340 DRTR " BE ■- *;J •- WHEN ' VOU '■ RNSWER -■ THE ■■ XH, ■" RND ' WHEN " 
VOU'RRE' " 

11350 DRTR " RSKED '' TO •- r'IV •" R ' XJ •' JOB. '' BE -■ SURE •- RND ' GI VE I 
T-'VOUR-" 

11360 DRTR " BEST •• ‘ÌN. ==REMEMBER .■ •- THE •- CUSTOMER •-1S ' RLWR 
VS 'J^J! " 

11370 DRTR " t==RECENT •- EMPLOVEE " INJURIES : == " 

11380 DRTR ■■ RN ELECTRICRL " MRINTENRNCE ' MRN ' TOUCHED ' R •- 

*:n-to-r'metrl'-^:n. 

11390 DRTR " THE •- EXPLOSI ON ' HURT ■■ HIS •- XB. == " 

11400 DRTR " R '■ PROFESSOR ' WRS - HIT - BV ' R '' XN ' RND - SUFFERED 


11410 DRTR ” BRUISES •- RND - CUTS ON ' HER ' XB. == " 

11420 DRTR " R ■- FOOD - SER VI CE •- WORKER FELL -■ WHI LE •- MOPPI NG 
- THE- XN. 

11430 DRTR " INJUR I NG •- HER •- LEGS. == " 

11440 DRTR " R-• COMPUTER PROGRRMMER FELL RSLEEP -■ RT •- HER 
' TERMINAL " 

11450 DRTR " R '' XC OCCURRED •- WH I LE •' SHE - SLEPT. " 

11460 DRTR " -■ CRUSI NG •- HER •' X J " COMPUTER TO ' FRLL - ON HER •' 
XB.==" 

11470 DRTR " iCLRSS IFI ED •- RDS : == " 

11480 DRTR " FREE '' XN - LESSONS -■ IN •- EXCHANGE ■- FOR KEEPI NG ' 
XN"" 

11490 DRTR " FREE ^ OF - XN. - C 766-2337 == " 

11500 DRTR " VOLUNTEERS •" NEEDED ' FOR ' RESEARCH - PROJECT. - 
MUST-NOT-' ■■ 
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11510 

11520 

11530 

11540 

60000 

60010 

60020 


60030 

60070 


60090 
60100 
60110 
60120 

60130 

60140 

61000 


61010 

62000 

62010 

62020 

62030 

62040 

62045 

62050 

62060 

62070 

62080 

62090 


62100 

62110 

62120 


DRTfl " EE •' fìFRfl IE ' OF ' ’AP .. ’/iP .■ ■■ OR ' R ' KJ .TI NE ^ OU 

T-nORE-'" 

ERTR " E V ^ CRLLI HO ' T-iZ ' RT ■- 963-9905== " 

ERTR " SICKLV '' ZV '' FOR " SRLE. - C 976-1880 > == " 

ERTR"i" 

IN!t=" " : ZT=TI : ZC=2 : ZE$=C;HR$(:20> 

GETZ$:IFZ$<>""THEN60070 

IFZT<=TITHEHPRIHTMIE$< " 'ir, ZC, 1 > ; "II" : ZC:=3-ZC 
:ZT=TI+15 
001060010 

Z=RSC C Z$ > : ZL=LEN -C IH^: > : IF < ZRNE127 > <;32THEHPR I NT 
"'II"; :GOTO60110 
IFZL>QI THEN60010 
I m -1 m+z$ ■ PRI HTZf ; ZEt ; z$ ; 

I FZ= 13THEHI N$=ri I E$ < I H$. 2 > T’R I HTC;R$: RETURN 
I FZ=20RHEZL> 1THEHI N$=LEFTt C I Ht.. ZL-1 > : PR I NT " II" 
;:GOTO60010 

I FZ= 141 THEHZf=C:HR$ < -20* C ZL> 1 > > : F0RZ=2TCiZL : PR I 

NTZ$; : NEXT : GCITO60000 

GOTO60010 

CRT=1024 : VIC=53248 : WE=40 CRf=i::HR$< 13) : SIE=542 
72 : JS=56320: 071=55296 
QL=214:Q1=254 : RETURN 

GCISUE61000 ; POKE VIC+32.. 0 : POKE V10+33.0 : LN=LEN C P 
Gt):TE=<40-LN)/2 

PR I NT " TRE C TE > LEFT$ < " •' '■ ' '' '■ '■ •- " ' '• -■ '■ -■ '' ' '' '' 

•' LN) 

PR I NT " a" TRE (TB)P0$ : PR I NT " S" TRE ( TE ) LEFT$ < " '' ' ' ' 

PRINT " WS" TRE < C 40-lÉn < RU# ))/2) RUf 
riS$= " ERTTI '• RETURN '' PER 'INIZI RRE " 

I FJFTHENriS$= " PREMI"! L '' JO VSTICK " PER 'INIZI RRE " 
TE=c:(40~LEN(riSi:>)/2) 

PR I NT " mmk." TRE aE > ris$ : PR I NT " iPMKraWHlilk'' •' '■ •' " '• '■ 

'• C C > '• 1983 " THE '’ COEE ^ WORKS " 

GETI N$ : IFI N$<:> " " THEN62120 
IF < PEEK JS ) RNE16 ) =0THEN62120 
PR I NT " TRE ( TE ) LEFT$ ( " m.". K+1 ) L 

EFTt<NS$.Q) 

Q=Q+1 : IFQ>LEN(:riSt)THENQ=0T:=l-K 
GOTO62070 

CLR : PR I NT " G0SUE61000 : GOTO 100 



Godzilla 

(joystick) 



Allarme generale! Godzilla è sul piede di guerra, e sta attaccando il Giap¬ 
pone! Sta a voi fermarlo. Se ci riuscirete il Giappone vi sarà grato in 
eterno, altrimenti la catastrofe sarà di dimensioni colossali! 

Per riuscire ad uccidere Godzilla avete a disposizione le tre armi giappo¬ 
nesi (esercito, marina e aviazione), dieci missili a lunga gittata e una 
bomba H. 

Il C-64 costruisce sullo schermo una mappa dell’area interessata dalle 
operazioni, che comprende il Giappone (in cui è indicata la posizione di 
Tokio) e una parte dell’oceano circostante; l’intera mappa è divisa in 25 
settori. Godzilla occupa un settore per volta e voi potrete lanciare l’attac¬ 
co da uno qualsiasi dei settori circostanti, che in tal caso vengono indica¬ 
ti da un quadrato blu. Il movimento del cursore attraverso la mappa è 
comandato dal joystick, e sulla destra appaiono i dati riguardanti la po¬ 
polazione, le truppe, le navi e gli aerei disponibili nel settore illuminato. 
Giocherete a fasi alterne con Godzilla, che durante il suo turno può spo¬ 
starsi in uno qualsiasi degli otto settori adiacenti a quello in cui si trova; 
in genere non distruggerà truppe, armamenti o popolazione se non viene 
provocato da un attacco, tranne nel caso in cui arriva a Tokio dove — es¬ 
sendo la capitale fittamente abitata — non può fare a meno di provocare 
una strage. 

Durante il vostro turno potete attaccare o spostare truppe e navi sce¬ 
gliendo uno degli 8 comandi a disposizione. 

1. Attacco da terra: le truppe che si trovano nel settore dove è Godzilla 
aprono il fuoco contro di lui, nel numero da voi scelto. Se usato in un set¬ 
tore senza terra, questo comando darà origine a un messaggio di errore. 
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2. Attacco dal mare: tutte le navi che si trovano nel settore di Godzilla 
sparano contro di lui. Anche qui, se usato in una zona senza mare, il co¬ 
mando farà apparire un messaggio di errore. 

3. Attacco aereo: il numero di aerei, da voi scelto, che si trovano nel set¬ 
tore indicato dal cursore sferrano un attacco contro Godzilla. Essi posso¬ 
no attaccare da una distanza massima di due settori. 

4. Movimento di truppe: l’esercito si può muovere da un settore ad un al¬ 
tro qualsiasi degli otto adiacenti. Usate il joystick, muovendo il cursore 
blu nel settore dal quale volete effettuare lo spostamento e battete il nu¬ 
mero 4: il cursore diventerà rosso e spostandolo nell’area prescelta si ef¬ 
fettuerà il movimento di truppe semplicemente premendo il pulsante 
(l’area deve ovviamente contenere della terra). 

5. Movimento di navi: si sposta una nave da un settore ad uno degli otto 
adiacenti. L’operazione si effettua come nel caso precedente, e l’area de¬ 
ve contenere una porzione di mare. 

Per annullare queste due operazioni, battete un qualunque tasto dopo 
che è apparso il cursore rosso. 

6. Missile: viene attivato il lancio di uno dei 10 missili a disposizione con¬ 
tro Godzilla. Il missile viene lanciato automaticamente da un qualunque 
settore. 

7. Bomba H: la bomba viene lanciata contro Godzilla (attenzione, è una 
sola) e distrugge tutto quello che si trova nel suo settore e negli otto 
adiacenti. Inoltre non è detto che con la bomba H riusciate ad uccidere il 
mostro! Data la gravità dell’arma, in questo caso vi verrà chiesta una con¬ 
ferma dell’ordine, a cui rispondere S o N. 

8. Fine: termina il gioco prima del tempo. 

Potete vincere solo uccidendo Godzilla; i danni che gli producete via via 
sono cumulativi, per cui continuando a colpirlo gravemente alla fine mo¬ 
rirà. Godzilla invece può vincere in due modi: uccidendo un certo nume¬ 
ro di popolazione e truppe o distruggendo Tokio. Attenzione quindi anche 
con le vostre stesse armi: potrebbero costituire punti in più per il mo¬ 
stro! 

Godzilla per il C-64 è basato su un programma scritto per il Commodore 
PET da Randall Lockwood: la linea 62035, che inserisce questa informa¬ 
zione nella presentazione del gioco, va aggiunta alla routine standard di 
linea 62000. 
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SIMBOLI GRAFICI 

r SHIFT £ 

• 

SHIFT Q 

X 

SHIFT V 

“ COMM V 

1 

COMM N 


COMM 


“ COMM U 

m 

COMM + 




COMANDI &: COLORI 

a RVS ON 

■ 

RVS OFF 


HOME 


n CLERR 


CRSR-D 

1 

CRSR- 

-U 

Il CRSR-L 

II 

CRSR-R 

■ 

CTRL 

BLK 

a CTRL WHT 

ri 

CTRL RED 


CTRL 

CVN 

li CTRL PUR 

in 

CTRL VEL 

:ì 

COMM 

BLK 

S COMM RED 


COMM CVN 


COMM 

PUR 

Il COMM GRN 


COMM BLU 





1 PG$= G ••• 0 D Z ••• I L L R " : fìU$= " DI •- GLEN •- FISHER " : 
JF=1 

4 : 

5 REM COPYRIGHT OI:) 19S3 THE CODE WORKS 

6 REM BOX 6905.. SRHTR BRRERRfì.. CR 93160 

10 REM RS OF 8/15/.93 GF 

50 REM EDIZIONE ITRLIRNR:EDIGEO 1934 

90 GOTO 62000 

100 DIM TR(:4..4>..SH-;:4..4>..PL(4..4;;'..P0(:4..4).LH<4..4;'.J 
Ra5). jc<i5:;'.DM(;i0;;'.DM$a0> 

102 POKEV11::+32 ..11; POKEVIC+33.. 0 : QI = 11 
105 DIM BSai>.EG(ll>.Biai>..HT';;24)..DR(24) 

110 SP=CRT+1016 ; SB= 13i+!64 

115 PRIHT "Z[«!«3TO- LRVORflHDO... " 

120 RERD Tt-IF T$<>"£" THEH 120 
130 R0=50 ; C0=24 ; HW=0 : riW=0 
140 DN$= " ««a" : BL$= " -■ •- ••• '■ ^ " 

150 S I D=54272:FOR I =0TO28:POKES I D+1.0 :NEXT 
160 C1 $= " JSltìMPMeiT’ •• 02$= " SKMdMdMdWMBEi" 

200 FORI=0 T015:RERD JR( I >.. jca > ; NEXT I 
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210 FOR 1 = 1 TO 10:REFiri HMta >. DM-:; I > : HEKT I 
220 FOR 1 = 1 TO 10 : RERD BI ( I :■ BS I ;•. BG CI): HEXT 
230 FOR 1 = 1 TO 24:RERD HTCI >T:DRCI:;'=Tif20:HEKT 
510 RERD hFFOR 1=0 TO H-1:RERD T:POKE SB+I..T;HE>::T 
520 FOR I=N TO 63:P0KE SB+I..0:NEXT 
530 R=SB+64:F0R I=R TO R+60 STEP 3:pOKE I..255:P0K 
E I+1.255:P0KE I+2.224:NEXT 
540 FOR 1=0 TO 3:P0KE VIC+I + I + 1..0:POKE SP+I,. 14:NE 
KT:POKE VIC+lb.0:POKE SP,13 
550 R=SB+128:F0R 1=0 TO 63:POKE fì+I,0:HEXT 
560 FOR 1=0 TO 7 : POKE R+3*I .■ 255 : HEXT : POKE SP+1.. 15 
600 POKE V11::+21.. 15 : POKE V11:;+23 ..12: poKE VIC+29 ,.12: 
POKE VIC+27.. 14 

610 POKE VIC+39.5 : POKE V11::+401 : POKE V10+41.2: poK 
E VIi:;+42..6 
620 POKE VIC+2M44 

900 FOR 1 = 1 TO 7 STEP 2:POKE Vli::+I.0:NEXT 
910 PRIHT '■ aa[iailSTO -■ COSTRUENDO •-1L ■■ GIRPPOHE... 

/ il 

1000 RESTORE : MP=0 : FOR 1=0 TO 4 : FOR J=0 TO 4 
1010 RERD R..PO:PL=0:SH=0: IF PO>0 THEN P0=INTaE7/P 
0+.5:;' 

1020 IF PO>0 THEN PL= I HT C RND < 1 100 ) +1 : TR= I HT C PO/8 
0 > 

1030 IF PO=0 THEH SH=IHTXRHDa>;f6) + l :TR=SH#350 
1035 I FPL>r'1PTHEHMP=PL 

1040 PLC I .. J>=PL : SH( I .. J>=;E;H : P0< I . J>=PO : TR( I . J>=TR : L 
H-::i.. J) = <PO>0;:' 

1045 HEXTJ.. I 

1050 DRTR 83.. 0. 87.0.. 92.. 0. 97.1102.. 0 
1060 DRTR 283.. 0. 287.0.. 2910.. 2561.. 3011 
1070 DRTR 483.. 0.487.. 0.. 4920.456. 1.. 501.. 0 
1080 DRTR 683.. 0.. 687 ,.1.5.. 691.. 1.. 655... 4.. 7010 
1090 DRTR 844.. 18061.. 851.. 08560.. 861.. 0 
1400 PRIHT 
1410 FOR 1=1 TO 5 

1420 H=5:IF I>1 THEH H=4:F0R J=1 TO 5:PRIHT "-1 

:HEKT J: PRIHT 

1430 FOR J=1 TO hUFOR K=1 TO 5:PRIHT l";:HEXT 

K:IF .JCH OR IC5 THEH PRIHT 
1440 HEKT J.I :PRIHT 
1500 PRIHT "aìWItì" 
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1510 FOR 1 = 1 TO 20:REfìri T..T$:PRIHT SPC C T T$ : HEXT : 
P U K E VIIJ+3 / 186 

1520 riRTP 17.." a - A7.. " ZV ' "..17.. " zV ■- H ".. 16. " ZW-' '' 
5^" ,.15.. " an~*^" ..15.. 

1530 DRTfl 16." a-' ■^" ..16. " S'' •- " . 16. " S " •- ". 15. " r-T-' W" .14.. 
" 13. ■'ST" ••••■" 


1540 

DRTRll. 

" a-' '■ • 

/ Mar II 

11. "a--6. "ET 


.4. "a^- 

■" B^a' 


T" 

1550 

DRTR7.. " 

an-' a- 


"|S|- -l- a^".4.. "a"" 

1610 

PRIHT C 

2$; 

' : GOSL 

.IB 9000: PRIHT 

1620 

FOR 1=0 

TO 7 : 

RERD 

Z$:PRIHT TRB<26).' 


9+1); "a: ";zì::he:kt 

1630 DRTR RTT.TERRR.RTT.MRRE.RTT.REREO.MOV.TRUPPE. 
MOV.HRVI 


1640 
1700 
1900 
2000 
2005 
2007 
2010 
2015 
2020 

2025 

2030 


2540 

2550 

2555 

2560 

2700 


DRTR MISSILE.BOMBR H.FIHE 
GD=2500:HM=10:RB-0:TK=0 
R1=0•C1=0 

GOSUB 8200:IF S3 tHEH OH SG GOTO 6900.6850 
GET T$:IF T$<>"" THEN 2005 
CS$=C 1 '$■ ■ CS=6 : GOSUB 8000 : R1 =R : C1 =C 
IF i::$="" OR C;#=i::HR$(13) THEH 2005 
IF C:$="Q" THEH i::$="8" 

IF C$<"1" OR C$>"8" THEH ERT="COME?":GOSUB 79 
00;GOTO 2000 

TD=0 : Sri=0 : Rfi=0 ; PD=0 : RR=-GR : RC=GC 

OH RSC <. C$ ) -RSC ( " 1 " ) +1 GOTO 2500.3000.3500.400 

0.4500.5000.5500.6000 

GOTO 2000 

CS|:=C2$ : CS=4 : GOSUB 8000 : R2=R : C2=C 
POKE VI i::+CS+1.0 : PRIHT C2$ ; " i " GOSUB 9000 
GOTO 2000 

IF LH RR . RC )=0 THEH ERT= " HIEHTE ' TERRR " •• GOSUB 
7900:hOTU 2000 

IF f R RR. RC ) <=0 THEH ERf = " HI EHTE •- TRUPPE " : GOSU 

B 7900:GOTO 2000 

GOSUB 7800:IF IH=0 THEH 2000 

IF IH>TR<RR.RC) THEH ER$="TROPPI":GOSUB 7900: 

GOTO 2000 

TD=IHT(RHD(l)i<<IH> 

DM=l + IHT<IH/8000+RHD'::i>#3) : IF DM>7 THEH DM=7 
DR= I Hif50/125000 : GOSUB 2700 
GOTO 6500 

FOR I=SÌri TO Siri+14 STEP 7 
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2710 POKE I.0:POKE I + 1..64:P0KE 1+5,. 0:POKE 1+6,. 198 ^ 
HEXT:H=4 

2720 POR J=1 TO DR 

2730 Ci=H;H=N+7; IF H>18 THEN H=4 

2740 POKE SI:D+H.129 

2750 POR 1 = 1 TO PEEK';;SID+27)/4:NEKT 

2760 POKE SID+O,. 128 

2770 F0RI = 1 TO 30 :HEXT 

2730 NEXT J 

2800 POR J=1 TO 2:0=N:H=N+7:IP N>18 THEN H=4 
2810 POKE SID+O. 128; POKE SID+0+2.. 10 ; POKE SID+O.. 129 
;P0KE SID+O.. 128 

2820 POR 1=1 TO 30:HEXT;HEKT J 
2830 RETURN 

3000 IP LNCflR.fiC) THEN ER$=’‘NIENTE MflRE" •• GOSUE 790 
0 ; GOTO 2000 

3010 ì P SH fiR.. flC ) <=0 THEN ER$= " NI ENTE •• NfiVI " : GOSUE 
7900 : GOTO 2000 

3020 IF TR fìR.. flC ) /SH C RR.. fiC > < 100THENER$= " TROPPO •- POC 
HI";GOSUE7900: GOTO 2000 

3030 DM=SH(fiR..Ri::) + INT<RND<l)#4;:'; IP DM>7 THEN DM=7 
3040 TD= I NT < RND ( 1 > s^TR C RR.. RC > : SD= I NT TD/300 
3050 IP SD>=SH'::RR..RC> THEN SD=SH<RR.. RC> ; TD=TR(RR.. R 
C •' 


3055 

3060 


3205 

3210 

3220 

3230 

3240 

3250 

3260 

3500 

3510 


3530 

3540 


GOSUE 3200 
GOTO 6500 

POKÈ SID+0.. 0 : POKE SID+1.. 12 ; POKE SID+5.. 28 : POKE 
SID+6.252;POKE SID+22.. 110 
POKE SID+24..31 

POR J=1 TO 3+RND<l>*SH(fiR..RC)#2 

POKE SID+23.1 ;POKE SID+4.. 129 

POR 1 = 1 TO 200; NE/T I ; POKE SID+4.. 128 

POR 1 = 1 TO 700ifRND-::i> ;NE/T 

NEXT .J 

RETURN 

RR=R1 ;RC;=C1 

IF PL < RR.. RC > < 1 THEN ER|;= "NI ENTE •- RERE I " ; GOSUE 
7900 ; GOTO 2000 

IP flES(:GR-RR>+RES(;GC-RC>>2 THEN ER$="TROPPO"L 
ONTRNO";GOSUE 7900;GOTO 2000 
GOSUE 7800;IP IN=0 THEN 2000 
IP IN>PL'::RR..RC) THEN ER$="TROPPr'; GOSUE 7900; 
GOTO 2000 
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3550 riM=iNTaH*-RNri(i)/3;;'+i : iF riri>9 theh riri=9 

3560 fìri= I NT ( I Ni^RHri C1 ) : GOSIJE3700 ; GOTO 6500 
3700 POKESI II . 32 : POKESI £1+1.. 1 : POKESID+2.. 64 
3705 POKES I £1+3.0 : POKES ID+5.. 0 : POKES ID+6.. 240 
3710 FORR=S ID+7T0SI £i+14STEP7 : POKER. 0 : POKEfl+1.. 4 ^ POK 
ER+23 0:pOKER+3. 1 

3720 POKE R+5. 0 : POKE R+6.. 73 : NEKT R : POKE SID+14.. 16 : 

POKE SI £1+23.. 0 : POKE SID+2415 
3730 POKES I £ 1 + 11.65 : POKES ID+18.. 69 
3740 FOR 1 = 1 TO 3+RHD';; 1 )#IH/MPif:5 
3750 POKES ID+4.. 64 : FOR.J=0TORN£i < 1 ) #300 : HEXTJ 
3760 POKES I £1+4.. 65 : FORJ=0TO200+RN£i < 1 > #500 : NEKTJ 
3770 HEKTI : POKES I D+4.. 64 •• POKES ID+11.. 64 : POKES ID+1864 
3780 RETURN 

4000 IF LN':;R1.C1;;'=0 THEN ER$="NIENTE 'TERRR" ^GOSUE 
7900 : GOTO 2000 

4010 IF TR(:R1..C1;;'=0 then er$= "niente truppe" ^gosub 
7900 : GOTO 2000 

4020 GOSUB 7800:IF IN=0 THEN 4120 
4030 IF IN>TR<R1..C1> THEN ERt="TROPPI ": GOSUB 7900: 
GOTO 4120 

4035 PRI NT £iN$ ; TRE 26 ;> ; " MUOVI " ; STR$ ( IN > 

4040 PRINT TRE(26>; ":iP5£iOVE?" 

4050 C:S=4 : CSS=C2$ : GOSUB 8000 : PR I NT £iN$ ; " ;««" ; TRE ( 26 
>EL$ 

4055 R2=R:C2=C:IF Cl:0"" THEN 4120 
4060 IF R1=R2 RND C1=C2 THEN 4120 
4065 IF RBS(Rl-R2>+RESO::l-C2;'>2 THEN ERt="TROPPO-L 
ONTRNO":GOSUB 7900:GOTO 4120 
4070 IF LN<R2..C2;;'=0 THEN ERì:="NIENTE- TERRR" : GOSUB 
7900 :GOT0 4120 

4080 TR < R2. C2 > =TR ( R2.. C2 > +1N : TR R1.. C1 =TR < R1. C1 -1N 
4090 R=R1 :C=C1 :PRINT C1$■GOSUB 9000 
4100 R=R2:C=C2:PRINT C2$:G0:E;UB 9000 
4110 £iL=60 : G0:5UE 7950 

4120 POKE VIC+5.0: PRINT 1 : 2 $.; "■": GOSUB 9000: PRINT £1 
N|:;TRB<26>JEL|: 

4130 GOTO 2000 

4500 IF LN(:R1..C1> then ER$="NIENTE- NRRE" : GOSUB 790 
0 :GUTO 2000 

4510 IF SH';:R1..C1>=0 then ER|:= "NI ente " NRV I" : GOSUB 7 
900:GOTO 2000 

4520 PR I NT £iN$ ; TRE C 26 ;• ; " ^«DOVE? " 
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4530 

4540 

4550 

4560 

4565 

4570 

4580 

4590 

4600 

4610 

4620 

4630 

4640 

5000 


5010 
5020 

5030 

5040 

5050 

5060 


5310 

5320 

5330 

5340 

53501 

5360 

5500 

5510 


CS=4 : CS^~C2$ ■■ GOSUB 8000 : f?2=^R : C2=C : PRI NT DN^ ; T 
PB(:26;-; 

IF THEN 4630 

IF LH(R2j: 2> THEN ERi:= "NI ENTE •'MARE GOSUB 79 
00:GOTO 4630 

IF RBS<R1-R2)+AES(C1h::2>>2 THEN ER$=^"TROPPO" 
LONTANO":GOSUE7900: GOTO 4630 
IF R1=R2 AND C1=C2 THEN 4630 
T= I NT CTR < R1.. C1 > /3H < R1.. C1 > > 


SH'::R1..C1)=SH<R1..C1>”1 :S 


H'::R2.C2>=SH';:R2.C2) + 1 


TR < R1.. C1 > =TR •; R 1.. C 1 > - T : TR < R2. C2 ) =TR ( R2.. 02 ) +T 


R=R1 : 0=01 :PRINT 01$ :GOSUB 9000 
R=:R2 ; i:;=i:;2 : PR I NT C2|: : GOSUB 9000 
BL.=60 : GOSUB 79501 

POKÉ VIC+5.. 0 : PR I NT 02$: GOSUB 9000 : PR I NT B 
N$; TAB';:26> ; BL$ 

GOTO 2000 

IF NMC1 THEN ER$--= "MISSILI •-FINITI " : GOSUB 7900 : 
GOTO 20010 

NM=NM-1 : PR I NT riN$ ; TAB -r 26 " MI SS I LE " 10-NM : PR I 

NT TAB'::26>.i "LANEIATO" 

PIi= I NT (. RND ( 1 ) i<^PO ( AR ^ AO ) > 

TD=INT'::RNDa:;'i+;TR'::AR.. AO)) : IF LN(AR..AO) THEN 50 
40 

SD= I NT < TD/350 ) : IF SD>SH ( AR. AO > THEN Sri=SH C AR. 
AO) :TB=TR'::AR.. AO) 
riM=l + INT':RNDa.)*9) 

CiOSI IB 53001 

PR I NT BNtTAB ( 26 ) ; BL$ : PR I NT TAB ( 26 )BL$ : GOTO 
650101 

POKE SI ri+22.110: pokE S 111+1.12 : POKE SI B+6 .252 : 
POKE Siri+5..2S 

POKE SI ri+13.76 : POKE S111+24.. 31 : POKE S111+11.. 17 

POKE Sin+ll.. 16:F0R 1=255 TO 55 STEP -1 

POKE Siri+8. I :POKE SIB+3.. I :NEXT 

POKE SI Ii+11.. 0 : POKE SI ri+231 : POKE SI ri+4.129 

FOR 1 = 1 TO 200i:NENT I 

POKE Siri+4. 128: RETURN 

IF RE THEN ER$="GIA"-USATA":GOSUB 7900:GOTO 2 
000 

PRINT riH$; TAB26) r'mi OIJRO?" : PRINT TAB(26) ; "? 
a<" ; : GOSUB 60000 

PR I NT riH$ ; TAB C 26 ) ; EL$ : PR I NT TAB C 26 ) ; EL$ 
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5530 IF LEFT$ < I H$1 > <> " S " THEN ER$= " FlHHIJLLfìTO " : GOSU 
B 7900:GOTO 2000 

5535 PRI NT HNf ; TfiB C 26 > ; " BOMBA " : PRIHT TAB < 26 )" ESPL 
OSR":GOSIJB 5700 

5540 FOR R=AR-1 TO AR+1:IF R<0 OR R>4 THEN 5600 
5550 FOR C=AC-1 TO AC+1:IF CCO OR 04 THEN 5590 
5560 PR I HT LEFT$ < " .. 1 +5#R > ; TA 

5565 If'r=3'aNd'c=3 THEN POKE VIC+3.0 
5570 FOR Z=1 TO 5SPRINT "XOCOMHir’; : IF 2<5 THEN 
PRINT 

5580 NEXT Z : PR I NT " S!" : Tri=Tri+TR < R.. C > : Pri=Pri+PO < R.. C > 
5585 TR(R.O=0:PO(R.C>=0:SH<R.C>=0:PL<R.O=0 
5590 NEXT C 

5600 NEXT R:R=AR:C=AC:RB=1 

5605 PR I NT riN$ ; TAB 26 ; BL$ : PR I NT TAB ( 26 > ; BL$ 

5610 DM < 10 > = I NT ( RND ( 1 > 4i 1500 +800 : DM= 10 
5620 TR < AR.. AC > =TIi : SH < AR. AC > =SD : PL C AR.. AC > =AD : PO ( AR. 
RC>=PD:GOTO6500 

5700 POKE SID+24.25:P0KE SID+23.. 1 : POKE SID+1.12:P0 
KE SID+6..253:P0KE SID+5.. 192 
5710 POKE SID+4.129:N=1 

5715 POKEVIC+6.. 24+GC*40 : POKEVIC+7.50+GR#40 : POKEVIC 
+27. PEEK VIC+27 ) RNDN0T8 
5720 FOR 1=70 TO 255: POKE SID+22.. I 
5725 IFBI<N> = ITHENPOKEVIC+39.. BG<N) : POKEVIC+42.. BS<N 
):N=N+1 

5730 F0RJ=1 TO EKPC (255-D/34>#. 7 : NEXT 
5740 NEXT I:POKE SID+24.79 :POKE SID+4.128 
5750 FOR1=15 TO 200:POKE SID+22.I 
5760 I FB I N ) <> ITHEN5770 

5765 POKEVIC+39.BG C N >:J=BS < N):POKEVIC+42.J:N=N+1 :1 
FJ=16THENPOKEVIC+7.0 
5770 FOR J=1 TO 10:NEXT:NEXT I 

5780 POKE SID+4.0 :POKEVIC+42.6 :POKEVIC+27.PEEK C VIC 
+27)0R8 

5790 POKEV I C+624+C1 i4!40 : POKEV I C+7.50+R15^40 : RETURN 

6000 POKE VIC+21.0: POKE SID+24..0 

6010 PR I HT " .T3" : POKE V10+32.14: pOKE VIC+33.6 

6020 GET T$:IF T$<>"" THEN 6020 

6030 END 

6500 TR ( AR. AC ) =TR ( AR. AC ) “TD : SH ( AR. AC ) =SH ( AR. AC /' ~SD 
:PL < AR.AC > =PL(AR.AC >-AD 
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6510 

6520 


6525 

6526 

6527 
6530 

6535 

6536 
6545 
6550 
6560 
6565 
6570 
6575 
6580 
6585 
6590 


6595 
6600 
6610 
6620 


6630 

6640 

6650 

6660 

6670 

6680 

6690 

6695 

6700 

6710 

6720 

6730 

6800 


6830 

6850 


PO < fiR.. flc > =pci RR. fìc > -PD : Gri=Gri-riri c nn ) 

pR I NT riN$" rj" ; trb < 26 ; im c im > ; ■■ ■■ drnh i " ^ pr i ht 

TRB<26>;"R-GonziLLRir 

IF sn>0 THEN PR I NT TRB • 26 >" II" SD ; " NRVI ' RFF. " ; 
I FSD= 1THENPRI NT " IIIIIIE " ; 

PRINT 

IF TD+Pri>0 THEN PR I NT TRB < 26 > " II" ; TD+PD. " K. 0. 

":TK=TK+TD+PD 

IF Rri>0 THEN PR I NT TRE ( 26 >" II" ; RD ; " DISTRUTTI " 

; ; IFRri=l THENPR I NT"llli"; 

PRINT 

IF RR=R1 RND RC=C1 THEN PRINT Clf^GOSUB 9000 
DL=300 : GOSIJB 7950 : PR I NT DN$ ; 

FOR Z=1 TO 4: PRINT TRE';26:> ; BL$ : NEXT 

IF PO<33X25000 THEN 6900 

IF TK>2E7 THEN 6850 

IF GIKl THEN 6800 

IF riM<>7 RNIi Dri<:>8 THEN 2000 

ijl ii;il IB 8200- IF su THEN UN S‘G GUTU 6900.<6850 

PR I NT im ; TRB 26 >" SCiODZ ILLR " ; PR I NT TRB 26 ) ; " 

INFURIRTO ! ■!" 

GOSIIB 8500 

IF ln(:gr..gc:) then esse 

IF SHCGR.. 00=0 THEN 6700 

PD=0 •• Tri= I NT < RND < 1 > #TR GR. GC > /SH GR.. GC > > : SH < GR 
..GC:)=SH';:GR.GC>-1 

IF sH'::gr..gi:;>=0 then td=tr(:gr..gi::) 

PR I NT TRE 26 > .i " 1 •' NRVE ' RFF. " 

GOTO 6670 

PD= I NT < RND 1 > ifiPO GR. GC > > : TD= I NT < RND < 1 > #TR C GR. 
GC> > 

PO<GR. GC> =P0■:GR. GC>-PD ; TRCGR.. GC>=TR<GR. GC>-TD 
PR I NT TRB •: 26 > ; " II" ; TD+PD ; " K. 0. " 

IF GR=R1 RND GC=C1 THEN PRINT C1$:G0SIJE 9000 

TK=TK+PD+TD 

DL=300 : GOSIJB7950 

PRINT DN$;:FOR Z=1 TO 4: PRINT TfìB(:26>; EL$ : NENT 
IF TK>2E7 THEN 6850 
GOTO 2000 

PR I NT im ; TRB C 26 > ; " «30DZI LLR " : PR I NT TRB < 26 ) ; " 

EMORTO! " 

HW=HW+1 ;N=1 :GOSIJE 9500: GOTO 7000 
PR I NT DN$;TRB C 26 >;"IB"; TK ;" K .0. " 
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6860 PRIHT TflB < 26 > ; " IGOUZI LLfi " : PRI NT TfiB C 26 > ; *’ VINC 
E! ! " 

687'0 UW—UW+1 -N—10-GUSUB 9500-UOTU 70Q0 
6900 PR I NT riNf ; TflB C 26 ) ; " tffOKVCi •- E " : PR I NT TflB ( 26 > ; " 
niSTRIJTTfl! ■■ 

6910 PR I NT TflB C 26 > ; " IGOnZ I LLfl " : PR I NT TflB < 26 " VI NC 
E ! ! " 

6920 GW=GW+1 :N=10;Gi:iSUB 9500: GOTO 7000 
7000 DL=:.-!00 : GOSUE 7950:pRINT EiN$; 

7010 POR 1=1 TO 4:pRINT TflBCZG);BL$:NEKT 
7020 PRINT C2$;TflB C 26 >;" IOCHI - VINTI-1" 

7030 PR I NT TflB C 26 > ; " GODZI LLfl •' " : RI GHTt " •- •- •' " +STR$ C G 

7040 PR I NT TflB < 26 > ; " TU '' •• •- '' ' " ; RI GHT$ C " '' ' " +SJR$ ( H 
W>..4> 

7050 PRINT riN$;:GOSLIB 9100: IF VN=0 THEN 6800 
7060 GOTO 900 

7500 GOSUB 61000 : POKE S111+24 ..15: POKE SID.. 0 : POKE SI 
D+5.. 0 : POKE SID+6.. 240 

7510 P=21*:; 1 12): c=40 : ri=i::-*Pi^P : E=ri*P*P : G=E*Pif P#P/2+1 
POKE Siri+4.. 17 

7520 POKE Siri+lu:::FOR 1 = 1 TO 90:NEXT 
7530 POKE Siri+l.ri:FOR 1 = 1 TO 90:NEXT 
7540 POKE SID+1..E:F0R 1 = 1 TO 90:NEXT 
7550 POKE Siri+lu::FOR 1 = 1 TO 90:NEXT 
7555 POKE SIIi+1.0:FOR 1 = 1 TO 54:NEXT 
7560 POKE Siri+l..G:FOR 1 = 1 TO 120:NEXT 
7570 POKE Siri+lu:::FOR 1 = 1 TO 90:NEXT 
7580 POKE SIri+4.. 16: RETURN 
7800 PR I NT riN$TflB C 26 )" WillClUflNT I ? " 

7810 PRINT TflB26); "?a(% : GOSUB 60000: IF IN$=’'" THE 
N IN=0:GOTO7890 

7820 FOR Z= 1 TO LEN (.li-m- Z#=M I< I N$.. Z. 1 ) 

7830 IF Z$<:"0*'OR Z$>'‘9" THEN ER$="SBflGLIflTO" : GOSUB 
7900:GOTO 7890 
7840 NEXT Z: IN=VflL':;ÌN$> 

7890 PR I NT riN$ ; TflB ( 26 )" m" . BL$ : PR I NTTflB C 26 ) BL$ ■ R 
ETIJRN 

7900 PR I NT riN$ ; TflB 26 ) ; BL$. " T* 

7905 PR I NT TflB C 26 )ER$" H" 

7910 riL=60: GOSUB 7950 
7920 PRINT TflB'::26).;BL$ 

7930 RETURN 
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7950 TM=TI+riL 

7960 IF TI Ciri THEH 7960 

7970 RETURN 

8000 fì=V I C:+39+CS/2 : TM=0 
8010 GOSUE 8900 

8020 .Jri=PEEK JS > fìNDS 1 : GETCf : I FC$<> " " OR JDRNn 16 =0T 
HEH8110 

8030 IFTI >TMTHENPOKER< PEEK < R > +8 > RND15 : Tri=T I +2 
8040 .jri=JDRHri 15 ; IFJri= 15THEH8020 
8050 R=R+JR JD > : i::=C+..TC < JD > 

8060 IF R<0 THEH R=4 

8070 IF R>4 THEH R=0 

8080 IF C:<:0 THEN C--4 

8090 IF 04 THEH C=0 

8100 POKE R.PEEK(R > RHDHOTS:TM=TI+20 :GOTO8010 
8110 POKER.. PEEK R > RHUNOTO : RETURN 
8200 R1 =GR+1 NT < RND C l > : C1 =GC+1 NT ( RHH < 1 > *3-1 > 

8210 IF R1<:0 OR RI>4 OR CICO OR CI>4 THEH 8200 
8230 GR=R 1 • GC=C 1 • POKE VIC j 24+GC':f-40+6 • POKE VIC+1 j 50 
+GR*40+10 

3240 R=P 1 : C=C 1 : r:S=6 : CS$=C 1 $ ■ GOSUB8900 
8250 GIi=GD+15:IF GR03 OR GC03 THEH SG=0 : RETURN 
8260 PR I NT riH$ : TRE C 26 > ; " CGODZI LLR -■ E - " ^ PR I NT TRE < 26 
; "R" TOKYO ! " : GOSUE 8400 

8270 PD= INTCRND( 1 >il^PO< 3 .3> /3 :Tri= INT C RNDUi^fTR<3.3 


8280 PO 3.. 3 > =P0 ( 3.. 3 > ~PB ■ TR C 3.3 > =TR C 3 .• 3 > -TE 
8290 TK=TK+TD+PD : PR I NT TRE C 26 ; " ■■l". TD+PD" K. 0. " : G 
OSUE 8900 

8300 riL=300 : GOSUE 7950:PRIHT riH$; ^FOR 1 = 1 TO S^PRI 
NT TRB'::26::';ELf :HEXT 

8310 IF POO:..SS'<10000 THEH SG=1;RETURN 
8320 IF TK>2E7 THEH SG=2:RETURN 
8330 GOTO 8900 

8400 POKE SID+0/0:POKE SID+5.0:POKE SIE+6.240:POKE 
SID+24.. 15:P0KE SID+23..0 
8410 POKE Siri+4.. 17:F0R 1 = 1 TO 6 

8420 FOR .J=25 TO 50: POKE SID+l.. J : F0RK=1T01 : NEKT : HE 
XTJ 

8430 FOR J=49 TO 26 STEP -1:P0KE SID+l.. J : F0RK=1T01 
:HEXT:HEXTJ 

8440 HEXT I:POKE SID+4.. F : RETURN 
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8500 POKE SIIi.0:POKE SID+e.. 240 : POKE S111+24.7 : POKE 
Siri+23.0:POKE SID+4.. 17 

8510 POR I = 1T04 : FCiRJ= 17070 : POKES11)+1.. J : HEkTJ : NEXTI 
:PCiKE SID+4.16 
8520 RETIJRH 

8900 POKE VIC+CS.00+40*0 :POKE V10+CS+1.50+R*40:PRI 
NT OS# : GOSIJB9000 : RETURN 

8999 PRINT • END 

9000 2#="-" :2=PO<R..O;;': IF 2>0 THEN 2$=STR$':;2) 

9005 PR I NT TRE < 26 > ; " POP. " ; RIGHT# " •- •- •- •- -■ •- " +2#. 8 > 
9010 2#="“" :2=TR<R..G:;': IF 2>0 THEN 2#=STR#<2> 

9015 PR I NT TRE < 26 >" TRUPPE •- "RIGHT# ( " •- •- ' ■" •- " +2#.. 6 > 
9020 2#="-" ;2=PL';:R..0> : IF 2>0 THEN 2#=3TR#'::2) 

9025 PR I NT TRE ( 26 > ; " RERE I - " ; RIGHT# ( " - •- •- '' " " +2#. 7 ) 
9030 2#="--" :2=SH(R..0> : IF 2>0 THEN 2#=STR:f<2> 

9035 PR I NT TRE < 26 >" NRVI ' "RIGHT# < " ' •- •- ■■ " ' •- " +2#. 8 > 
9040 RETURN 

9100 NO=0 : PR I NT TRE 26 > ; " IOOHI ■■ RNOORR? " 

9110 TN=0 : SW= 1 : PR INTTRE126 ) ; " 1 NOT’ 

9120 IF TI-::TM THEN 9150 

9130 PR I NTTRE 26+N0*3 > ; MID# ( " a[i]".. SW. 1 > ; NID# C " SI NO " 
%2ifN0+1.2;'.; "T 
9140 SW=3-SW : Tri=T 1 + 15 

9150 JD=PEEK < JS > RNII31 : JE= < JD< 16): JD=JDRND15 
9160 IF JE RND JD=15 THEN VN=';NO=0) : RETURN 
9170 IFCJD RND S)=0 RND NO==0 THEN N0=1:G0T0 9110 
9180 IF(JD RND 4)=0 RND N0=1 THEN NO=0:GOTO 9110 
9190 GOTO 9120 

9500 FOR R=SID TO SID+14 STEP 7 : POKE R.0:POKE R+1.. 
0:POKE R+5.. 0:POKE R+6.. 240 

9510 NEXT : POKE SID+7.. 128 : POKES ID+14.255 : POKES ID+24 
.. 15 : POKESID+23.0 

9520 POKE SID+4.17 : POKE SID+11.. 17 : POKE SID+18.. 17 
9530 2=NT<N):IF 2<0 THEN 9560 
9540 POKE SID+1.2:POKE SID+8.2:P0KE SID+15.2 
9550 FOR 1 = 1 TO DR';;N):NEXT I:N=N+1:G0T0 9520 
9560 POKE SID+4.16 :POKE SID+11.16 :POKE SID+18.16 
9570 RETURN 
52500 DRTR £ 

52510 DRTR 0.0. 0. 0. 0. 0. 0. 0 
52520 DRTR 0.0. 1. 1. -1. 1. 0. 1 
52530 DRTR 0.0. 1.--1. --l.-l. 0.-1 
52540 DRTR 0.0. 1. 0. -1. 0. 0. 0 
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52550 

52560 

52570 

525S0 

52590 

52600 

52610 

52620 

52630 

52640 

52650 

52990 

53000 

53001 

53002 
60000 
60010 
60020 

60030 

60070 

60090 
bO 100 
60110 
60120 

60130 

60140 
61000 

61010 

62000 

62010 


DRTfl HI ENTE.. 5. NI ENTE5. LIEVI20. POCH 1.100,. POC 

HI.100.MED1.150.MOLII.300 

DflTR MOLII.300.GRRVI.400.ENORMI.800 

DRTR 70.2.5. 110.8.2. 150.7.8. 190.1.7 
DRTR 230.1.1. 19.7.1. 65.8.7. 111.2.8 
DRTR 157.16.2. 199.16.5 

DRTR 48.2. 50.4. 0.0. 50.1. 53.2. 50.2. 45.2. 
67.16. —1.0 

DRTR 32. 12. 0.0. 32 j 8 j 0 j 0. 32 .i eij 0 j 01 32.14. 38 
. 12. 36.8. 32.2.0.0. 32. 1 £"1 
DRTR 30.4. 32.14. -1.0 


DRTR5 !■'. 0.0.0.0.0.112.0.0.236.0. 1.255.0. 1.255. 
0.3.240.0.3.224.0. ('. 24y. 0. t' 

DRTR23G.0.15.192.0.15.192.0.15.128.0.31.192.0 
.31.224.0.63.240.0.126.240 
DRTR0.252.224.195.241.192.127.195.240 
IH$=" " : ZT=TI : ZC-2 : ZD$=C:HR$';;20> 

GETZ$:IFZ$<>""THEH60070 

I FZT<=T ITHEHPRIHTMI D$ < " " . ZC. 1 >. " It" ; : ZC=3-ZC 

;ZT=TI+15 

GOTO60010 


Z=RSC Z$ > : ZL=LEN I m > : I F < ZRND 127 > <;32THEHPR I NT 
" •■ H"; :GOTO60110 
IFZL>QI THEH60010 
I m= I N$+z$ : PRINTZ# ; zm z$ 

IFZ=13THEHIH$=MID#(INt.2 >:PRINTCR$; : RETURN 
I FZ=20RND2L> 1THENI N$=LEFT$ < I N$. ZL-1 > : PR I NT " II" 
• GOT060010 

I FZ= 141 THENZ$=i::HR$ < -20* < ZL> 1 > > : F0RZ=2Ti:iZL : PR I 

NTZ$.; : NENT : GnTO60000 

GOTO60010 


CRT=1024 : VIi::=53248 : WD=40 : i::R$=CHR$( 13) : SID=542 
72 : JS=56320 : C:M=55296 
QL=214:QI=254:RETURN 

GOSUB61000 : P0KEVIC;+32. 0 ; POKEVIC+33.0 : LN=LEN(:P 
Gt >:TE= < 40-LN)/2 

PR I NT " Z[i!M«!!lia" TRE < TE > LEFT$ C " ' " ■■ •- •- -■ ' •- •- ' •- •" •- •' 

" ". LN> 
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62020 

62030 

62035 

62040 

62045 

62050 

62060 

62070 

62080 

62090 


62100 
62110 
62120 


PRI NT " a" TfiB ( TE > PGi: : PRI NT " T TRE ( TB > LEFTì: C " ' - •- 

.* .•* y / y / y ti ^ •, 

PR I NT " m" TRE < 40-LEN < RUf > > /2 > RIJ$ 

PR I NT " W 23 •• ••• DR •- UN PROGRRMMR ' DI -■ 2 KRNDRLL '' LOCKWO 
ODm 

riS$= " BRTTI ^ RETURN •- PER - INIZI RRE " 

I FJFTHENMS$= " PREM I •-1L ■- JO VSTICK ' PER •- INIZI RRE " 
TE= 0:40-LEN (MS$)::-/2> 

PR I NT " TRE < TE > MS^ : PR I NT " KflUacItìUlKk - " •- •- 

( C> " 1983 " THE CODE " WORKS " 

GETIN^ : IFI mO " " THEN62120 

IF C PEEK JS > RND16 ) =0THEN62120 

PR I NT " TRE < TE > LEFT$ ( " mj '. K+1 > L 

EFT$';MSf..Q) 

Q~o.+i : ifq>len<:ms$)thenq=0;k=i-k 

GOTO62070 

CLR:PRINT"na":G0SUB61000 ; GOTO100 






Labirinto 

(joystick) 



Avete mai pensato a come può sentirsi un topino da laboratorio quanto 
viene messo in un labirinto? Giocando a Labirinto non solo sarete co¬ 
stretti a pensarci, ma proverete le stesse sensazioni! 

Il C-64, dopo aver creato il labirinto in modo casuale, vi mostrerà sullo 
schermo esattamente quello che vedreste davanti a voi se foste ridotti al¬ 
le dimensioni di un topino. Per avanzare dovete muovere il joystick in 
avanti; per girarvi indietro, a destra o a sinistra dovete rispettivamente 
tirare la leva verso di voi o spostarla a destra e a sinistra: in questi tre 
casi però non vi sposterete, ma stando sul posto cambierete semplice- 
mente il vostro angolo di visuale. 

La posizione di partenza è segnata sul pavimento del labirinto da un 
grosso quadrato rosso porpora (per poterla riconoscere se mai ritornaste 
sui vostri passi...), mentre un bel blocco giallo rappresenta il formaggio, 
ambito e gustoso premio. In alto sullo schermo compare sempre un nu¬ 
mero decimale, che indica la distanza in linea d’aria che vi separa dal 
formaggio; badate però che per raggiungerlo dovrete magari aggirare del¬ 
le pareti, facendo quindi aumentare il numero in alto: esso vi dà sempre 
la distanza in linea d’aria. 

Quando ne avrete abbastanza, premete il pulsante del joystick per porre 
fine al tormento e il C-64 vi mostrerà il labirinto visto dall’alto con la 
strada percorsa fino a quel momento, la posizione di partenza in rosso ed 
il formaggio in giallo; fatelo solo quando siete alla disperazione però, 
perché a questo punto il gioco termina e viene generato automaticamente 
un nuovo labirinto. Vi consigliamo di non perdere la calma e di cercare 
bene per tutto il labirinto: nessun gatto vi sta dando la caccia! 
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CRRflTTERI SPECIALI UTILIZZATI 


SIMBOLI GRAFICI 


J SHIFT e 

r 

SHIFT £ 

1 

SHIFT P 

- SHIFT % 

/ 

SHIFT N 


COMM 

+ 

- COMM P 

1 

COMM N 

1 

COMM 

M 

" COMM V 

■1 

COMM I 


COMM 

* 

■ COMM D 

■ 

COMM F 

■ 

COMM 

C 

• COMM V 

— 

COMM e 

1 

COMM 

H 

COMANDI & COLORI 

a RVS ON 

■ 

RVS OFF 

a 

HOME 


n CLEAR 


CRSR-D 

n 

CRSR- 

■u 

Il CRSR-L 

II 

CRSR-R 

II 

INST 


al CTRL WHT 

k. 

CTRL CVN 

n 

CTRL 

VEL 

a CTRL PUR 

m 

m 

CTRL BLU 

li 

CTRL 

GRN 

■ CTRL BLK 

n COMM BLU 

n 

CTRL RED 

COMM PUR 

» 

COMM 

CVN 


1 PG$= " a ■" A " B I R I H T '■ 0 " " : AIJ$= " DI -■ C. T. NADOVI 
CH ^ E GLEH TISHER " : JF= 1 

4 : 

5 REM COPYRIGHT (C> 1383 THE CODE WORKS 

6 REM BOX 6905. SANTA BARBARA. CA 93160 

7 : 

10 REM AS OF 1/29/34 GF 

50 REM EDIZIONE ITALIANA : EDIGEO 1984 

90 GOTO 62000 

100 PRINTCHR$(142 >;H=12 :V=7:H1=H+1 ;POKEVIC+32.0 :P 
OKEVIC+33.0 

101 DIMJD a 5 > : QI=7 : W=50i* 1024 ; V1 =W+256 

102 FORI=0TO15 : READJD CI):NEXT:DATA0.0.0.0.0.3.9.6 
.0.1.7.4.0.2.8.5 

103 DEFFNJ < X)=JD C PEEK C JS+X)AND15):dEFFNB < X) = < PEEK 
<JS+X)AND16)=0 

110 I=RND<-TI):DIM MZCV+l.H+D.HRCV+l.H+l) 
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DIMXL(;4;'.N2';4)/T'L(;4>.XR<4>.DM';;4).DCf(4>.DX<4) 

.DV(4> 

POR I =0TO4 : REfiDXL U >. H2 <.1>, VL ( I >. XR ( I > : NEXTI 
DfìTFlb* / 20 j “4 12^ 1^ 27" ^ 12/6/5^ 24 j 15 > 2, ^ ’ó j 22 j 

17.0.10.21 

POR 1=0 TO 3:REfìri Dria>.DC$';:i ;':hext 
D fìTfì 4. "raa" .2. "ma" . i. "sa". s. "lia" 

POR 1=0 TO 3 :READ HXCI>.DVa>:NEXT: DATA 0.-1. 
1.0.0.1.-1.0 
riN$= " 

CX= I NT •: RND C1 > MH > +1 : C V= I NT RND C1 > * V > +1 
C=CX:R=CV:S=0 

PORI=0TOV+1 :PORJ=0TOH+1 :MZ(I.J > =0 :HR <I.J)=0 :N 
EXT :NEXT 

PRINT"^ì!l«!ETO'CREANDO "IL-'LABIRINTO... " 

rifl =:0 : N =0 : AV=V1+C+R:^H1 : AU=W+C+RifHl : HR<R. C> = 1 : S 

=S+1:IP3>=H#VTHEN900 

IPO1THENIPHR(R.C-1)=0THENDA=DA+2:N=N+1 
IPCCHTHENI PHR C R. C+1 > =0THEND A=DA+1 •• N=N+1 
IPR>1THENIPHR<;R-1 . O=0THENDA=DA+8 : N=N+1 
IPR<VTHENIPHR(R+1.C)=0THENDA=DR+4:N=N+1 
N= I NT <; RND ( n i<«N > +1 : Z=DR+1 

ONZGOTO500.350.300.600.750.610.620.630.700.64 

0.650.660.670.680.690.695 

S=S-1 

C=C+1 : IPOHTHENC=l :R=R+1 : IPR>VTHENR=1 

ONHR •: R. C > +1G0T0510.300 

ONNGOTO800.850 

ONNGOTO750.350 

ONNGOTO750.300 

ONNGOTO750.300.350 

ONNGOTO700.850 

ONNGOTO700.300 

ONNGOTO700.800.350 

ONNGOTO700.750 

ONNGOTCI700. 750.350 

ONNGOTO700.750.300 

ONNGOTO700.750.300.350 

MZ ( R. O =MZ C R. O 0R4 : R=R -1 : MZ ( R. C > =r* 1 Z ( R. C > OR 1 : G 
0SIIB895 : GOTO300 

MZ < R. C > =MZ ( R. C > OR 1 : G0SUB395 : R=R+1 ^ MZ R. C > =MZ C 
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920 

930 

940 

950 

1000 

1010 

1020 

1030 

1045 

1046 

1049 

1050 
1055 

1060 

1070 

1075 

1080 

1090 

1100 

1110 

1120 

1200 

1201 

1210 

1220 

1260 

1290 

1310 

1340 


f-12 ( R. C >=riZ < R. C > 0R8 : C=C-1 ; MZ < R. C > =MZ ( R. C ) ORZ : G 
0SIJB895 •• GOTO300 

MZ R. C > =riz < R. C ) 0R2 : G0SIJB895 : C=C+1 : flZ R. C ) =riz < 
RX)OR8:GOTO300 

PRI HTLEFTf ( '* JaelWSMtìBMBMlleaW . R+4 ;•. TfìB < C > ; •• Z= ( 3fì 
NDriZ<R.C)) + l 

PR I HTM I D$ - U". Z. 1 > : RETURN 

I =RND <; n >. 5 : J=RND (A > - K=RND < 1 > >. 5 
IFI THENX=INT < J#H > +1 :V=V+ C V-1> #K 
IFI =0THEN V= I NT C J* V > +1 X=H+ ( H-1 > WK 
IF •: CX-X ) t2+ < C V-V ) •T2< < H t2+V t2 > /9THEN900 
; gy*y 

PR I NT " □al" : POKEVIC+17.23 : POKEVI C:+22. 7 ; POKEVIC+ 
32.11 

FORI=0TOV+1 : FORJ=0TCiH+l : HR( I. J>=0 : NEXT : NEXT 
D=INT<RNDa>#4) 

T4=TI •■HR(V.X> = 1 

Z$=M 1 1}$ < STR$ ■: I NT < SQR C < X-CX > 12+ < V-CV > t2 > * 10+. 5 
> /10 >. 2 > 

GOSIJB7500 : PR I NT " ; TflB < < 33-LEN ( Z$ > ) /2 > ; Z$ 

I FCX=XfiNriC V=VTHEN6000 
IFFNB 0 :• thenk=t i : goto6 1 00 

GETI N$ : IFI N$= " Q " THENPRI NT " □fiBUjRRZ IE ' PER ■■ IL " GI 
OCO" END 

I=FNJ(:0> : IFI=5THEN1050 

IFFNJC0>C>5THEN1070 

IFI=2THEND=D+2 

IFI=4THEND=D-1 

IFI=6THEND=D+1 

IFD<0THEND=D+4 

IFri>3THEND=D-4 

IFIO8THEN1045 

RV=V1+X+V#H1 : RW=W+X+Vi+iHl 

ONDGOTO1260.1310.1360 

IF V:> 1RND ( MZ < V . X ) RND4 > THEN V=V- 1 : HR < V. X > = 1 : GOTO 
1045 

GOTO1400 

IFX<HRND(MZ < V.X > RND2 > THENX=X+1 :HR C V.X > = 1 : GOTO 
1045 

GOTO1400 

IFV<VRND •: MZ ( V. X > RND 1 ) THENV=V+1 : HR ( V. X > = 1 : GOTO 
1045 

GOTO1400 
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1360 

1400 

1410 

1420 

1430 
2000 
2020 
2100 
2125 
2130 
2140 
2200 
2210 
2250 
2260 
2270 
2280 
2290 
3500 
3510 
3520 
3530 

3540 

3550 

3560 

3570 

3580 

3590 

3600 

5000 

5010 

5020 

5030 

5040 


5050 


5210 


I FX> 1 AND •: NZ < V. X > RND8 > THEHK=^:K-- 1 : HR: ( V. X > == 1 : GOTO 
1045 

DN=23:GOSUE7000 

FORZ= 1T05 : PRINTTRE ( 16 > ; " atJ I ENTE •- PORTAH" : FORI == 
1TO100:HEXT 

PR INTTRB 16);" sa-j I ente •- portati" : FOR I = 1TO100 : NEX 
T:NEXTZ 

PRINTTRB•: 16) '' •- - '' •' •- - n" : GOTO 1049 

PRiNT'Ma-"; 

FOR I = 1 TOH •• PR I NT "_" ; : NEIKT : PR I NT " Wm]" 

FOR J:= 1TOV : PR I NT " fll Hi! [SW" ; : FOR I = 1 TOH 
K=riZ<J.I) AND 3 

PRINTMID$("_ ì' - 1_ """'M+3#K.3); 

IFK<2THENPRINT"TIB fll [Pi?]"; 

PRINT"^I"; 

IFHRCJ. I) = 1THENPRINT"II. 

IFI =SKAHD J=SVTHENPR I NT " aUS'' *31" ; 

IFI =CXAND J=CVTHENPR I NT " Hlia - *31" ; 

IFI =XAND J= VTHENPRI NT " II" ; fi I D$ " t>V C ". D+1.. 1 ). 
PRINT"IM"; 

NEXT : PRI NT "Pi?]" : NEXT : RETURN 
NO=0:PRINT"n"; 

TM=0 : SW= 1 : PR I NTTRB ( 10); " SlJN •- ALTRO? ' SE I ■■ NO •- H" 
IF TI-CTM THEN 3550 

PR I NTTRB 19+N0^4 ) ; NI D$ ( " Sti]" . SU. 1 ) ; fi I D$ C "'SI NO 

•'".3ifN0+1.3); ":t 

SU=3-SU:TM=TI+15 

JD=PEEK(JS)RND31 : JB=(JDC16) : JD=^JDAND15 
IF JB AND JD=15 THEN 3600 
IF(JD AND 8)=0 AND NO=0 THEN NO=l:GOTO 3510 
IFUD AND 4)=0 AND HO=l THEN NO=0 : GOTO 3510 
GOTO 3520 

PR I NTTRB < 19+N0i*4 ) ; " T ; MI BS- <. " •- SI NO " ". 3m\0+ 1.3 ) 
; "H" :VN=aJO=0) : RETURN 
IFS=0ORS=4THENRETURN 
PRINT LEFT$<DN$.19); 

IFS=3THENPRINTTHE<20); "rmil. 3( 

I FS=2THENPR I NTTRB C19);" filSnTx'liCPrWnsi 
I FS= 1THENPRI NTTRB < 18); " ^PlPlSr ' -■ /«■■Ipr —V l■■■[?] 


RETURN 

ON SH GOTO 5210.5220.5230.5240:RETURN 
PRINTLEFTfCDNt. 14) ; TABUS) ; "a—si" : RETURN 





122 LABIRINTO 


5220 

5230 

5240 

5250 

5300 

5310 

5320 

5330 


6000 

6010 

6020 

6100 


prihtleft$<;dh$. i5>;TfìB(i8)j : return 

PRINTLEFTi:<DNl-3 18 > ; TfìEC 15) ; "asr ' •- ' " ' ■ RETU 

RN 

PRI NTLEFT$ ( DH$ .21); TflB 12); " JJST•- '' ' •' •- •" " " 
PRIHTTRB-; 11 ) ; " ' •- '■ •' •- •' •- •- •- ^ ■ return 

ON SH GOTO 5310.. 5320.5330.5340:RETURN 
PR I NT LEFTf < lUS- .14); TRB ( 19 ) ; " !il. a" : RETURN 
PRINTLEFT$(riNt. 15) ; TRB( 18) ; ".TI ■ ^0111 " T ■ RETURN 
PR I NT LEFTi: < DN^ .18); TRB (.17 > ; " lilCF/llUflWa" : RET 
URN 

PR I NT LEFTl: •: UNI: .21); TflB ( 18);" !Ì1»^ - - /liiiD!]-1" Il 

llllep ’ ■■ RETURN 

K=T I : PR I NT' LEFT:^ •; DN$. 22 ) ; 

PORI = 1T025:PRINTTRB(15)"DELIZIOSO ! T’ :FORJ=1TO 
50 : NEKT.J 

PRINTTRE( 15) " ■- " " - •- "H" : FORJ=1TO50 : NEKTJ. I 

POKE VIC+32.0:PRINT"^":P0KE VIC+17.27:POKE VI 


U+22. b' 

6110 GOSUB2000:GOSUB3500 
6120 IFVNTHENGOTO200 
6130 PRINT":T1" :END 
7000 PRINT"ftl"; 

7100 IFDN>0THENFORZ=1TODN:PRINT"W".:NEXT 
7110 RETURN 

7500 TX=X : TV=V : SH=5 : HT=:0 : VT=0 : DH=22 : DF=D : DL= ( D+3 ) fl 
ND3:DR=(D+1)RND3 

7510 L0=DM(DL) :F0=DM(DF) :R0=^DM(DR) 

7520 PRINT 
7530 LD=DL:RD=DR 

7600 H0=SH:SW=SH: IF SH=5 THEN H0^1:SW--=S 

7620 ,RT=38-SW--HT 

7700 T=MZ ( TV + DV ( DL ). TX+DX ( I)L. ) ;■ 

7710 PRINT LEFT$ <DN$.VT+1); 

7720 EL3:=LEFT$ ( " - ■■ •- ' •- •- . SW ) 

7730 IF <T RHD R0)=0 THEN DX=DL:GOSUB 9100:GO3UE92 
00 :GGSUE 9300 : GOTO 7750 

7740 IF (T RHD F0)=0 THEN DX=DF:GOSUE 9000 :G0SUB92 
00:GOSUB 9000 : PL==1 : GOTO 7750 
7750 T=NZ(TV+DV(DR) . TXh-DX(DR) ) 

7760 PRINT LEFT$< DN$.VT +1); 

7770 BL:l:=LEFT$ ( " •- •- •- " •- •- ". SN ) 

7780 IF (T RND L0)=--^0 THEN DX=DR:GOSUB 9150:GOSUB92 
50 :GOSUE 9350 : GOTO 7800 
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7800 

7810 

7815 

7816 
7820 
7830 
7840 

7850 

7860 

7870 


7910 
7920 
7930 
9000 
9100 

9150 

9160 

9200 

9210 

9250 

9260 

9300 

9350 

9500 

9510 

9520 

9530 

9540 


IF <T AND F0;'=0 THEH DX=DF:GOSIJE 9000:GOSUB92 
50:GOSIJE 9000 : PR=1 : GOTO 7800 
IF < MZ ( TV V T:K ) fìHUFO > =0THEN7900 

Tx=T7:+rix<;DF) : Tv=Tv+riV(:riF> : ht=ht+sw : vt=vt-!-h 0 ^ s 

H=SH-1 : DH=riH"SH-SH 
IF JX=SK AND TV=SV THEN GOSUE 5200 

IF TX=C.X flHD TV=CV THEN GOSUE 5300 

IF SH>0 THEH 7600 

PF: I NT LEFT$ ( DN:f. VT+1 ) j TRE C HT >. DC^ C DL ) ; 

IF rizav.Tx;;'fìNriL0 then print dc$-ìidf:go 

TO 7860 

PRiNT'-'^jaerT'.; 

PRINTDC^CDR); : IF MZCTV.TX>fiNriR0 THEN PRINT DC 
■$ (. DF > j " ; : GOTO 7890 

PRINT "rtfiffT]"; 

PRINT"aa-: RETURN 

BL$=LEFT$ ( " ■' ' '' ■■ ' ' ■' ■' ■' ■■ ■' ■' ■' •' •' 

'■ " ' ■' '■. RT-HT-SW;' 

HT=HT+SW:PRINT LEFT$(DN$.VT+H041); 

FOR 1 = 1 TO EH: PRINT TRE<HT:'; ECtCEF) J ELf :NEXT 

PRINT"RETURN 

FOR 1 = 1 TO H0: PRINT :NE:<r: RETURN 

FOR I=H0 TO 1 STEP -l:PRINT TRECHT)JDCf(DK)JM 

I D$ ( EL$. I +1 ) ; " : NEXT : RETURN 

FOR I=H0 TO1 STEP-1 :PRINT TRE(RT+1-1>; BC $(EX > 

. "r';NIE$(EL$. I + i:' :NEKT 

RETURN 

IF EN=EF RNE LE=EF THEN EL$="I "+MIE$(BL$.2:- 
FOR 1 = 1 TO EH: PRINT TRE(HT) ; ECT'^EK;-; BL3: : NEXT : 
LE=EK: RETURN 

IF EN=EF RNE RE=EFTHEN EL*:=MIE$';;ELT. 2) + " I" 

FOR I = 1 TO EH : PRI NT TRE (RT> ; EC$(EK) ; ELT : i^IEXT : 
RE=EN: RETURN 

FOR 1 = 1 TO H0: PRINT TRE<HT> ; EC$':EX> ; MIE$<ELt.. 

T 4.1 • kJCVT * C'CTI IC'KJ 

FOR 1 = 1 TO H0:PRINT TRE(RT+1-1>;EC$ < EK > J" 5^3" 
J M1 1\$ ( BL$. I +1 > : NEXT : RETURN 
PRINT"Z[Pl«" :FOR 1 = 1 TO 4 

FOR J= 1 TO 3 : PR INTMI Bf < " faSil" . 1. 1 > ; " m ■' •- ■' •- •- 

. X . . .... . . ..... 

PRINT :NE7:T I 

PRINT-SJ" :FOR 1 = 1 TO 19 

PR I NT " »Ì»M - '■ •' nifi-' «E ' «ni" 
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3550 

9993 

60000 

60010 

60020 


60030 

60070 

60090 

60100 

60110 

60120 


60130 

60140 

61000 

61010 

62000 


62010 


62020 

62030 

62040 

62045 

62050 

62060 

62070 

62030 

62090 

62100 

62110 

62120 


NEXT I 
END 

IN$=" " : 2T=TI : 2C=2 : 2D$=CHR$<20) 

GETZf : IFZt O" "THEN60070 

IF2T<=TITHENPRIHTMID:J( " -.2C. 1) J "11" J : 2C=3-2C 
:2T=TI+15 
001060010 

2=fìSC - 2L=LEH< I: IF<ZflND 127><;32THENPRINT 
" Jl"; :GOTO60110 
IFZL>QI THEN60010 
I N$= I m+Zi- ■■ PRI NTZ$ ; zi)$ ; z$ ; 

I FZ= 13THENI N$=ri I D$ < I N$. 2 > : PR I NTCRt j : RETURN 
IFZ=20fiNDZL>lTHENIN$=LEFT$( IN$> ZL-1 ) : PRINT"!!" 
.:GOTO60010 

I FZ= 141 THENZ$==CHR$ ( -20# ( ZL> 1 :•^ F0RZ=2T0ZL : PR I 

NTZ^; :NEXT:GOTO60000 

GOTO60010 

CRT=1024 : VIC=5324S‘ : WD=40 : CR$=CHR$a3> ^ SID=542 
72 :JS-56320:CM=55296 
QL=214:QI=254:RETURN 

GOSUB61000 : P0KEVIi:+32.. 0 : P0KEVIC:+33.0 : LN=LEN';P 
G$) :TB='::40-LN>/2 

PR I NT " :itìi!Ml!ina" TRE ( TB ) LEFT$ < " •- ■- ' ■- " " '' •- " ■- •' •' " -■ •' 


'mn;- 

PRINT " a"TRE( TEPG^ : PRINT" tì" TREC TE>LEFTf ( " •- •' 

••• •' •' •- '■ •' . LN> 

PR I NT " :««" TRE ( C 40-LEN C RU^ ) > /2 > RU$ 

MS$ = " ERTTI " RETURN -• PER "INIZI RRE " 

IFJFTHENMS$="PRENI"IL"JOVSTICK"PER"INIZIRRE" 
TB=( < 40-LEN (MS:t>)/2) 

PR I NT " ;fiIi!MCk" TRE < TE > r-1S$ : PR I NT " MtìBMRlelfik" " " " " " " " 

••• c :■ " 1983" thè " code " works " 

GETI m : IFI mo " " THEN62120 

IF(PEEK < JS)RND16 >"0THEN62120 

PRINT "TRE CTB>LEFT$< " mj', K +1 >L 

EFT$(NS$.Q) 

Q=Q+1 : I FQ>LEN C riS$ :• THENQ=0 : K= 1 -K 
GOTO62070 

CLR : PRINT'Mal" : GOSUE61000 : GOTO 100 



Y ahtzee 







Yahtzee è un gioco di dadi, articolato su tante giocate, in cui lo scopo è 
quello di raggiungere il punteggio più alto possibile, realizzando varie 
combinazioni prefissate con 5 dadi. Il gioco si svolge in 13 mani e duran¬ 
te il proprio turno si possono tirare i dadi fino a tre volte, prima di se¬ 
gnare il punteggio raggiunto in una delle 13 combinazioni. 

Quando iniziate il gioco, il C-64 vi chiede quanti sono i giocatori e quali 
sono i loro nomi. È possibile giocare anche da soli, ma non è molto diver¬ 
tente: vi consigliamo di essere almeno in due. Per iniziare la mano pre¬ 
mete RETURN e i 5 dadi tirati compaiono sullo schermo: contempora¬ 
neamente in tutte le combinazioni utili (nelle quali cioè potreste segnare 
qualche punto) appare il punteggio, in caratteri inversi. Battete il numero 
che appare sulla faccia dei dadi che volete ritirare (ricordatevi che avete 
tre tiri) e premete RETURN. Alla fine dei tre tiri, o anche prima se i dadi 
vi soddisfano, battete la lettera corrispondente alla combinazione che vo¬ 
lete realizzare. 

Le combinazioni (che possono essere utilizzate una sola volta nel corso di 
una partita) sono le seguenti: 

Dagli assi ai sei: sono sei diverse combinazioni che funzionano allo stesso 
modo. Dovete semplicemente ottenere quanti più dadi di quel numero; il 
punteggio è dato dalla somma dei numeri uguali (se per esempio ottenete 
tre 5 con un tiro, avrete 15 punti che potrete segnare nella combinazione 
dei 5). Una combinazione finale di 5-1-3-1-5 può dare due punti nella com¬ 
binazione degli assi, oppure 10 punti in quella dei 5; sarete voi a sceglie¬ 
re la combinazione in cui segnare il punteggio. 

Premio per la prima metà: se ottenete un punteggio superiore a 63 nelle 
categorie dagli assi ai sei, otterrete un premio di 35 punti (i 63 punti so- 
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no ottenibili registrando nelle combinazioni dagli assi ai sei dei tiri con 
almeno tre dadi uguali per tiro). 

Tris; sono tre dadi con lo stesso numero: gli altri due non hanno impor¬ 
tanza. Il risultato è la somma di tutti e cinque i dadi. Per esempio, il tiro 
5-1-5-4-5 è un tris fatto di 5, con un punteggio di 20. Giochi superiori (co¬ 
me poker, full, ecc.) possono anche essere utilizzati come tris, visto che 
ognuno ha sicuramente almeno tre dadi uguali. 

Poker: quattro dadi uguali. Come nel tris anche qui il punteggio è dato 
dalla somma di tutti e cinque i dadi. Così 4-4-1-4-4 è un poker conteggiato 
come 17 punti. Anche Yahtzee può essere usato come poker, visto che ha 
più di quattro dadi uguali. 

Full: è un tris con altri due dadi uguali. 4-4-5-4-5 è un full con tre 4 e due 
5; il punteggio è sempre 25, indipendentemente dai dadi. Uno Yahtzee 
può essere conteggiato come full, poiché nessuno vieta che la coppia sia 
fatta dagli stessi dadi del tris. 

Scala a 4 dadi: una delle combinazioni 1-2-3-4, 2-3-4-5 o 3-4-5-6, non neces¬ 
sariamente in ordine, con un qualsiasi quinto dado, per esempio il tiro 
3-1-4-2-4. Ogni scala a 4 dadi vale 30 punti. 

Scala a 5 dadi: una delle due combinazioni 1-2-3-4-5 o 2-3-4-5-6, non neces¬ 
sariamente in ordine: vale 40 punti. 

Yahtzee: 5 dadi tutti uguali: vale 50 punti. 

Recupero: si può utilizzare qualsiasi combinazione di dadi: il punteggio è 
semplicemente la loro somma. Il recupero serve nel caso sfortunato che 
non si riesca a formare nessuna combinazione utile con un punteggio 
adeguato. 

Azzeramento delle combinazioni: se avete un tiro che non può essere in¬ 
serito in alcuna combinazione (o può esserlo con pochissimi punti) e ave¬ 
te già utilizzato il recupero, potete azzerare una delle combinazioni vuote 
rimaste, sapendo che non potrete più utilizzarla in seguito. In questo ca¬ 
so il C-64 vi chiederà conferma dell’ordine, al quale dovrete rispondere 
con S o N. 

Potete anche saltare la richiesta di conferma battendo, prima della lette¬ 
ra corrispondente alla combinazione, una "Z”. Così il comando ZL annul¬ 
lerà lo Yahtzee direttamente, nel caso che questo sia libero, o altrimenti 
vi verrà segnalato che è già stato utilizzato. 

Yahtzee in sovrappiù: in quelle rare occasioni in cui un giocatore ha una 
fortuna così sfacciata da fare più di uno Yahtzee in una partita, il C-64 
decide di premiarlo. Dopo che il primo Yahtzee è stato inserito al suo po¬ 
sto, infatti, i successivi (che saranno utilizzati per altre combinazioni, co¬ 
me poker, tris, full, ecc.) daranno origine ad un premio di 100 punti ag¬ 
giunto automaticamente nella casella dello Yahtzee. Così, se in una parti¬ 
ta vi sono capitati tre Yathzee (non fatevi vedere nei dintorni per un po’ 
di tempo!) otterrete 200 punti extra. 
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CARATTERI SPECIALI UTILIZZATI 


SIMBOLI GRAFICI 
• SHIFT Q 
SHIFT I 
^ SHIFT K 

■ COMM F 

■ COMM V 

COMANDI & COLORI 
a RVS OH 
n CLEAR 
Il CRSR-L 
!a CTRL RED 
!il CTRL VEL 
COMM PUR 


/ SHIFT U 
I SHIFT - 

■ COMM D 

I COMM K 
^ COMM + 

■ RVS OFF 
M CRSR-D 

II CRSR-R 

k CTRL CVN 
0 COMM RED 


- SHIFT M 
SHIFT J 
■ COMM I 
• CONM C 


a HOME 
1 CRSR-U 
a CTRL WHT 
1 CTRL PUR 
SJ COMM CVN 


PG$= ••• V ■' A H •' T ' Z E ■■■ E'"- AUf = " DI'' GLEN FISHER " 

REM COPYRIGHT CO 1983 THE CODE WORKS 
REM BOX 6905. SANTA BARBARA. CA 93160 

REM AS OF 2/1/84 GF 

REM EDIZIONE ITALIANA: EDIGEO 1934 

GOTO 62000 

DIMDI C 5 /'. DI ^ k 6. 6 . T C 5 . TS 13 ^*. SL.a 3. 13 . TL 4. 

3>.NMfC4).SVC5>.VRC4):QI=24 

PRINT''^" 

FORI = 1T06:FORJ=1T06:READDI$ CI.J >:NEXTJ.I 
DATA"'-^"". "tit". 

^ I* •' » ^ ® ■' ' " . " u " 

DATA"' "••••". "•••" 

Il / y y II II my Il II X / m II II m / A II 

.V s.sv 

jjpypi " ^ f ^ " a # ". " ' a ' ". " ■' ■' ■' " " ' a ' " " ' ' ' " " ' a ' " 

ii^ym» Il y y y II iiyy^ii ii^yyii 

A W m t m A W 

DATA"a-'a". "a'a". "a''a" 

DNt="aMi!l)ffi!»^ 
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200 PRI NT QUFINTI ' GI OCflTOR I ? " " ; : GOSIJE60000 : PRI NT : H 
P=VflL':; INf ;• 

2101FNP<10RNP>4THEHPRINT"DR'UNO"fi'QURTTRO"GIOCRT 
ORI.PER'FRVORE.":GOTO200 

220 PR I NT " m NSERI TE ' 1" LORO " NOMI. " : PR I NT " MfiX. •' CIN 
QUE'-LETTERE. 

240 FORI = 1TONP : PR I NT " GIOCRTORE " 1" : ' " ; : GOSIJE60000 

250 NM$ a-1> =LEFT$ CIN$.20 >:PRINT :NEXT 

300 FORI=0TO3:TL <1.0 > = 15+6*I+5-LEN < NM$ <I)> 

400 FOR J= 1 TO 13 •• SC-: < I. J >=-1 : NEXT J : FOR J= 1 T03 : TL CIJ 
>=0:NEXTJ,I 

410 FORI=0TO3:VRCI> =0 :NEXT 

500 PL=NP:RD=0:GOSUE10000 :PRINTDN$." TH" ; 

920 FOR I=0TONP- 1 :PR INTTRB C TL C1. 0 >>; NM^ CI);"T' :NEX 
TI 

1500 FORI = 1T05:nICI)=0 :NEXTI :RL=0 
1520 PL=PL+1:IFPL>=NPTHENPL=0:RD=RD+1:IFRD>13THEN5 
000 

1530 GOSUE11000 

1540 PR I NTDNf ; " Ì32i5»l331OCO •- " ; RI GHT$ C STR$ C RD >. 2 > 

1550 PR INTDNÌ ; TRE C TL C PL. 0 > :• ; " .lai" ; NM$ C PL :• 

2000 PR$= " ? ^ " : G03UE9 1 00 T F IN^ = " Q " THENPRI NT " 71" ■ END 
2005 I FRL=0THEN I m -" 00000 " 

2010 IFIN$=""THEN2000 

2020 ZER=0: IFLEFT$ CINf.1> = "2"THEN2ER=1 : IN$=MIDf(IN 
$j2r- IFIN$=""THEN2000 
2030 N= 1 : R= 1 : FOR I -■= 1TOLEN C I N$ > 

2040 T$=M I D$ C I Nf A, l'y-l FT$< " R " ORTf > " N " THENR=0 

2050 IFT^<"0"ORT$>"6"THENN=0 

2060 NEXTI 

2070 IFRTHEN3000 

2080 IFN=0THEN2000 

2050 RL=RL+1:1FRL>3THENPR$ = "NON"HRl'PIU■■ TIRI": GOT 
03500 

2095 FORI = 1T05:SV CI)=DICI>:NEXT 
2100 FOR I = 1 TOLEN CI Ni: > : T=VRL C MI Ii$ C I N$. 1. 1 ) ) 

2105 FOR.J--= 1T05:1FDIC J ) =TTHEND IC J > =0 : N=0 : G0T02115 

2110 NEXT J : PR$= " NON " CI ■- SONO ' REERSTRNZfì ^ " +STR-$ C T > : R 
L=RL-1 

2111 FORJ=1T05:nIC J > =SV C J):NEXT:GOTO3500 
2115 NEXTI:IFNTHENRL=RL-1:GOTO3500 

211? PRINT"5Sel)!K>irriR0";RL 
2120 CiOSUE9000 : GOSUE8000 : RVi:- " a" ; PR i NTDNf j 
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F0RCT=1T06:GOSUB2600:PRIHT:HEKTCT 
PRIHT:PRIHT 

F0RCT=7T013 : GOSIJB2600 : PRIHT : HEXTCT 
GOTO2000 

F0RI = 1T06 : SC=TSC I > : IFSCOGFlNDSC'i^PL. IXGTHEHG 
OSIJB2500:PRIHT"T'; 

PRINT :NEXTI :PRINT :PRINT 

F0RI=7T013 •• SC=TSa > : IFSC<>0flNDSC/:(PL. IX0THEN 
GOSIJB2500:PRINT"T'; 

PRIHT:NEXTI:GOTO2000 

PR I NTTflB 17+6i»!PL > ; R'■/$ ; RI GHTì ( " •- " +STR$ ( SC >3 

>: RETURN 

PRINTTfiB-:; 17+63KPL) : RETURN 

IFSCX ( PL. CT > >--0THENRETURN 
SC=TS(CT> 

ON(SC=0 > +2G0SUB2510.2500 

print".t; : return 

RV$=" '• : T=fiSC< IN$)-64 : firiD=TS<T> 

VB=<TSC12)>0 AND VR<PL:'>0> 

IFSCX < PL. T > >=0THENPRf = *’ L ^ HA I " GI fi •• " PRESO. " : GOT 
03500 

I FfiBD>0ORZER=: 1THEN3100 

PR$= " VUOI ••• DAVVERO AZZERARLO? ' " : G0SUB9100 

IFLEFTt CIN$.1> O"S"THEN2000 

X=T:IFT>6THENX=X+2 

IFSCX C PL. T > <0THENSCX PL. T > =0 

PR I NT : PR I NTDN$ ; LEFT$ C " . X > ; 

RV$="":SC=fiDD+SCX(PL.T >:SCX < PL.T > =SC 

IF VR'::PL)=0 THEN IF TSa2»0 THEN VR';PL> = (:T<> 

12>*2+1 

GOSUB2500:RVÌ="!il" : IFT>6THEN3300 
PRINTLEFTf C "mmm" . 7-T) ; : X=TL(PL. 1 > : SC=X+ADD 
:TL(PL.1>=SC 
IFX>62ORSCC63THEN3250 

X=SC : SC=35 : X=X+SC ; PRINT".!" ; : RV$="k" : GOSUB2500 
:TL-;PL>l>=X:RV$="!il" 

TL(PL.3)=TL(PL.3)+SC:SC=X 
GOSUE2500 : PR I NT " ; : GOTO3400 

PR I NTLEFT$ < 

SC=TL ( PL. 2 > +fiDri ; TL PL.. 2 > =SC : GOSUB2500 
SC=TL<:PL> 3>+ADD : TLCPL. 3)=SC :RVt ="T ■ GOSUB2500 
PR I NTDNì: j : FOR I = 1T06 : IFSCX < PL. I ) <0THENGOSUB251 
0:PRINT"n"J 
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3460 

3465 

3470 


3480 

3435 

3490 

3500 

3600 

5000 

5010 

5020 

5030 

5040 

5050 

5060 

5070 

5100 

5110 

5120 

8000 

8010 

3020 

8050 

3100 

8150 

3160 

8200 

8220 

8240 

8250 

8260 

8300 

8310 

3320 

8330 


PRIN'r :NEXTI 

PRIHT"M" :F0RI=7T013: IFSC;ì-;;PL. n<0THEHGOSLIE251 
0 : PRII-IT'M". 

PRIHT^NEKTI:IFVB=0THEN34?0 

PRIHTDN^; TFIE< 12 > ; "TIPREM10 - ‘r'fìHTZEE 'DI'!00 ■■ Pii 
NTI" 

SC=SC'iCPL. 12) + 100:SCZ<PL. 12)=-3C:pRINTDN$. "JM 
MtìelaltìtìfllBltì" : GOSUE 2500 

SC=TL ( PL. 2 > +100 : TL ( PL. 2 > =SC : R V$= "HI" : PR IMI: GOS 
LIE2500 

3C=TL < PL.. 3 ; +100 : TL l PL. 3 > ==SC : RVì == " a" : GOSIJE2500 
:FORI=^1T03000:NEZT 

PRINTDNfJ '• ni]" ; TflBTL•:PL> 0) ); NM$G'L) : GOTO 1500 
PR INTDNÌ J TFlE (12;';" T^3" ; PRt- ; "T 'F OR I = 1TO1000 : N 
EKTI:GOTO2000 

FORI == 1T05 : D K D =SV ( I ) : HEXT : GOTO3500 
TM-TH-300 : FORI=0TONP-1 : FORJ=0TOHP“2 
IFTL •: J. 3 > >TL < J+1.3 > THEN5040 
T=TLa.3;' :TL':J>3>=TLIJ+1..3;' ;TLa+1.3>=T 

Tf=Hrif ( j ;• ; Hm (. j >=ijri$ ( j+1 > : nm$ c j+ i > =t$ 

NEKTJ.I 

IFTKTMTHEH5050 

PR IHT " naOJFUHTEGG 10 ' FI NfiLE : Kl" 

FOR I =0TOHP-1 : PR INTTL 'l 1.3); TFiB ( 5 ) ; Hri$ ( I ) : HEXTI 
PR I NT " WJ IOCHI ' FiNCORfi? •- " ; : GOSUE60000 
IFLEFT$ <IN$.1)O"H"THEN300 
END 

FOR I = 1 TO 13 : TS ( I ) =0 : NEKTI : CT=0 : SIJri=--0 

FORI=1T05:T=DI(I):X=TSIT):!FK=0THENCT=CT+1 

TS ( T ) =Z+1 : SIJM=SIJM+T : NEXTI : TS ( 13 ) =SIJM 

0NCTG0T03100.8200.8150.8300.8400 

TS( 12)=50 : TS':3>=SUM : TS<7)=SUri : GOTOS500 

FOR I = 1T06 ; IFTS < I ) =3THENTS i 7 ) =SIJM 

NEXTI:GOTO3500 

CT=0:FORI = 1T06: IFTS<I) = 1THENCT=CT+1 

NENTI:TS(7)=SUM 

IFCT=0THENTS':;9)=25 

IFCT=lTHENTS':S)=SUri 

GOTO8500 

MN=7:MX=0:FORI=1TO6 

IFTSCI)=0THEN8340 

IFICMNTHENMN^I 

IFI>MXTHENMN=I 
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3340 

3350 

3360 

3400 


3410 

3420 

o430 

3440 

3450 

3500 

3510 

9000 

9010 


9020 

9030 

o rj -*1 c." 
o-_i 


9040 

9050 

9060 

9070 

9100 


9110 
1 0000 
10020 
10030 
10040 
10050 
10060 
10070 

1 0030 
10090 
10100 
11000 

11010 

11020 


HEXTI 

I FMK--MN=3THEHTS C10 > =30 
GOTO3500 

IFTS •: 1 > =0ORTS ( 6 > =0THEHTS 11 > =40 : TS ( 10 > =30 : GOT 
03500 

IFTS(2 > =0ORTS(5 > =0THEHTS <10 > =30 :GOTOS500 

GOTO8500 

ifi>mxthehm:k=i 

HEKTI 

IFMK-MN=4THEHTS <10 > =30 :TS O1)=40 
FOR I = 1 TOb : TS < I > =TS ( I I : NEKTI 
RETIJRH 
FRIHT"a":. 

FOR I = 1703 •• PRI NT : F0RJ= 1705 : IFDI C J > =0THENPR 11 ITT 
flEa0+5:*J>" -' ' 

HEXTJ.I:F0RI=1T05 
IFriICI><>0THEH9040 

Q= I NT ( RND ( 1 ) >^6+1:- : T ( I > =3* ( RND a > >. 5 ) +3 : CT < Q ) = 

CT(Q) + 1 :Dia)=Q 

NEKTI 

PR I NT " 433!" ; : FOR I = 1T03 : PR I NT 

FOR J= 1T05 : PR I HTTfìE ( 10+5* J > J EIT H +T ( J ) D K J > ;. 

4JEXTJ3 I 

PRIHT: RETURN 

PR I NTEN$ " T] - •• '■ 

:pRINTTfiE(12::'JPRtj 
GOSUB60000: RETURN 
PRINT":T" :GOSLIE11000 

PR INTDN4? ; " hJFì 'fìSS I " : PR I NT " E : DUE " : PR I NT " C : TRE " 
PRINT"D : QUfiTTRO" : PRINT"E : CINQUE" : PRINT'T ^ SEI •- " 
PR I NT " 0=63 : PREM IO"' PR I NTT$ 

PR I NT " iuG : 7 RIS : PR I NT " H : POKER -■ " : PR I NT " I : FULL " 
PR I NT " J : SCfìLfì ' Fi ' 4 ■■ EfiD I " ^ PR I NT " K : SCfìLR • fì - 5 " ERE 


I" 

PRINT"L:VRHT2EE":PRINT"M ^ RECUPERO" 

PR I NTT$ : PR I NT " 4 - ' TOTRLE GEN. 

RETURN 

TT=" .•-•. " : I - ■■ I " : VT=" '■-^ " : 3:f=">Ì|lll!ÌBl|lÌI! 


PRINT"4Ja"SÌTTT$TfT$T$ : F0RI = 1T03 
PRINTS:rUfU$U$Ui:U$ : NENTI : PRINT3ÌV$VÌV$V$V$ J 


":tti 
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11 040 PRIHT " isaa-' " •' •' " : PRI NT " a " ■' ••• ••• " •' •' " : PRI H 

T"a»m— " 

11 050 PR I NT " I ••• •'«": PR I NT " a "«mmmmmmmmir " 

11060 RETURN 

60000 I N3:= " " : 2T=T I : 2C=2 : 2Iìl:==CHR$ ( 20 
60010 GET2$: IF2$C>""THEN60070 

60020 I F2T<==T ITHENPRINTMI Df ( " •-1". 2C. 1) ; " It" ; : 2C=3-2C 
:2T=TI+15 
60030 GOTO60010 

60070 2=flSC ( 2^ > : 2L==LEN < I Nf ) ; IF < 2FlND 127 > <32THENPR I NT 
" ••GOTO60110 

60090 IF2L>QI THEN60010 
60100 I m- 1 \mz$ ■■ PR I NT2$ ; 2Df. Z$ J 
60110 IF2= 13THENIN$=MIDì:(I m,2) ■ PRINTCR$•• RETURN 
60120 IF2=20flND2L>lTHENINT==LEFT$( IN$. 2L-1 > : PRINT"JI" 
;:GOTO60010 

60130 IF2=141THEN2$==C:HR$';:-20i+:(2L>ljO :F0R2=2T02L:PRI 
NT2$> : NENT : Gi:iTO60000 
60140 GOTO60010 

61000 CRT= 1024 VI C“53243 : Uri=40 : CR$=CHR$ ( 13 > : SI D=542 
72 :JS=56320:CM~55296 
61010 QL=214 :QI=254 : RETURN 

62000 G0SUB61000 :POKEVIC+32.0 :POKEVIC+33.0 :LN=LEN(P 
G$) :tb=(;40-ln;'/2 

62010 PR INT"niUfflttiaiia" ìrb( tb > left$( •• -■ •- ^ ■■ •- 

LN) 

62020 PRINT" a" TRE< TE>PG$ : PRINT" T TREC TB>LEFT|:( " " ' ■- ' 
•' •' . LN) 

62030 PR I NT " ì!ltì" TRE •: ( 40--LEN C fiUt- ) > /2 ) RU^ 

62040 MS$= "ERTTI ^RETURN •-PER " IN121RRE" 

62045 IF JFTHENMì:= " PREM I •-1L -■ JOV3TICK ' PER •-1N121 RRE " 
62050 TE= C 40-LEN < MS$ > > /2 > 

62060 PR I NT " jSPMPA." TRE ( TB MS$ : PR I NT " :i!!»Ii!li!M(!Kk.-' •- ■- ' -■ •- 
■ ( C > •' 1 933 THE CODE •- WORKS " 

62070 GETI Ni: : IFI mO " " THEN62120 
62030 IF <: PEEK ( JS > RND16 > =0THEN62120 
62090 PR INT"aeMtOfilfiMtì TRETE )LEFT$( "K:+ 1 >L 

EFT$aiSf.Q> 

62100 Q=Q+1 : IFQ>LEN(MS$)THENQ=0:K=1-K 
62110 GOTO62070 

62120 CLR:PRINT" Ha" :G0SUB61000 : GOTO100 




Dama cinese 

(joystick) 



Questo programma è la nostra versione dell’antica e nota dama cinese. 
Sullo schermo appare una tavola con 32 (4x8) pioli, aH’interno della qua¬ 
le potete muovere il cursore lampeggiante spostando la leva del joystick. 
All’inizio del gioco il C-64 vi chiede di eliminare un piolo per creare il bu¬ 
co di partenza: da quel momento in poi dovrete togliere il maggior nume¬ 
ro possibile di pioli, scavalcandoli con un piolo adiacente. Il gioco termi¬ 
na quando non sono possibili ulteriori mosse; rimanere con due è già un 
buon risultato, ma provate a restare con uno solo! 

Le regole sono molto semplici: i pioli si possono muovere solamente sca- 
valcaldone un altro e andando a finire in un buco; quello scavalcato vie¬ 
ne così eliminato, lasciando un buco vuoto. Ogni mossa impossibile viene 
segnalata dal C-64 con un messaggio di errore. Per effettuare la mossa, 
basta spostare il cursore lampeggiante blu sul piolo che intendete muove¬ 
re e premere il pulsante; il cursore cambia allora colore e diventa rosso: 
dovete spostarlo nel buco in cui intendete mettere il piolo e premere nuo¬ 
vamente il pulsante per terminare la mossa. Mentre spostate il cursore 
rosso, quello blu rimane fermo per indicare il piolo che state muovendo. 
Se vi accorgete che state sbagliando, potete annullare una mossa riposi¬ 
zionando il cursore rosso su quello blu e premendo il joystick. 
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r-ririi-iTTirD T 

e 

>C»Crr>TCil T 1 ITTI T 

■77QTT 



wi liv.! Ili L>K X 

or e.!.* 1 nu 1 UIAL.X 




SIMBOLI GRAFICI 

• SHIFT Q 

1 

SHIFT - 

— 

SHIFT * 

+ SHIFT + 

I- 

COMM Q 

4 

COMM 

W 

r COMM fl 

T 

COMM R 

T 

COMM 

e* 

o 

COMM Z 

JL 

COMM E 

J 

COMM 

X 

M COMM + 

COMANDI & COLORI 

a RVS ON 

■ 

RVS OFF 

a 

HOME 


n CLEAR 


CRSR-D 

n 

CRSR- 

•u 

Il CRSR-L 

II 

CRSR-R 

4 

CTRL 

WHT 

k CTRL CVN 

1 

CTRL PUR 

li 

CTRL 

GRN 

ni CTRL VEL 

R 

COMM WHT 

S 

COMM 

RED 

sa COMM CVN 

li 

COMM GRN 


COMM 

BLU 


1 PG$= " D R M fì C I ••• H •• E S •' E ■- " ; fllJ$= " DI ' GLEH •- FISH 
ER":JF=1 

5 REM COPYRIGHT OO 1933 THE COHE WORKS 

6 REM BOX bÓGCo oRHTfl E!RR!BRRfi> Lfì 93160 

i’ 

10 REM fiS OF 3/19/33 GF 

50 REM EDIZIONE rrfiLIRNfì:EDIGEO 1934 

90 GOTO 62000 

100 PRI NTCHRf ( 142 > : DT$== " l” StBli ZV SÙ Sto " : QI =--2 
110 SB=13*64;SP=CRT+iole 

120 fi=:SB : FOR2==0TO11 : POKER.. 255 : POKEfì+1.240 : POKEfl+2 
.. 0 : R“R+3 • NEXT 

130 F0RZ=^fiT0SE+63 : POKEZ > 0 : NEXT 
140 POKESP.13:POKESP+1.13 
145 POKEVI C:+1.0: POKEVIC + 2.0 
150 POKEVI C:+39.2 : POKE VIC+40.6 
155 POKEVIC+27.3 :POKEVIC+21.3 
170 R0=72:C;0=110 
200 HR--0 : HC=0 
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500 

510 

520 

1000 

1010 

1020 

1030 


1035 
1040 
1050 
1110 
1200 
1210 
1220 
1300 
1310 

1320 

1325 

1330 

1340 

1300 

2000 


2005 

2010 

2020 

2050 

2055 

20601 


2065 

2070 

2100 

2110 

2120 

2130 

2140 

2200 

2210 


HT=12:VT“5 
CP$="" 
EP=1E5 
T$=" i - r-1 " 


!'■ I 1" 3.1$=" f-f- 




PRIHT : H=0 : V=0 : GOSIJB9000 
PRINTTfiE':HT>. " i—r- 


PR ! NTTflE ( HT ) ; T$ •• F'RI HTTflE < UT > ; iJ$ ^ PRIHTTPE < HT ).. 
T$:pRINTTfiE'::Fir)JlJ$ 

PR I llTTflE < HT > T$ • PR INTT HE ( HT ) J IJ$ 
PRINTTflE<HT>jT$ 

PRIHTTfiB';HT>J " i—t---*—t—J—' 

PORI = 1TQ4: PORJ=1TOS; E a.J > = 1 :HEKTJ:NEXTI 

P0RC=1T0S:P0RR=1T04 

GOSIJE9200 

NEXTR.C 

IPHC>0THEHR=HR:C=HC: GOTO1330 

GOSUE2600:H=1:V=9:GOSUB9000:PRIHT"IP0SI2I0Hfi- 

IL'ELICO" 

;^R= I NT ( RNE ( 1 > *4 ) +1 : NC= I NT < RNE ( 1 > >!■:£: Sfl=VIC+ 

2 : SC=VIC+40 : GOSUB3000 
HR=R : HC;=C 

E C R,c ì =0 :GOSUB9200 

H=- 1 : V=9 : GOSLIE9000 : PR I NT " ■■ " •' ' ' - •' •- " '■ ' 

r'1V=0 : TI$="000000" 

H=5 : V=-3 : GOSUE9000 : PRINT" :f10SSR" MV +1 : PR=0 ^ PC 
=0 

GOSIJE2G00 : H=0 : V=9 : GOSUB9000 • PRINT"riFr"'" 

SR=V IC+2 : SC=V IC+40 : GOSUE3000 : IPE'::R3::>=0THEN20 
10 

FR=R : pc=c : GOSUB9000 : PRINT" '' ' ' '■ ' " 

GOSUE 2600 : H=0 : V=9 ^ GOSLIB9000 : PR I NT " fi? " 

Sfi=VIC : SC=V IC+39 : GO3LIE3000 

IPR=PRfiNr!C=PCTHENPOK:EVIC+l0 : POKEVIC+0.0 : GOTO 
2000 

ipE';:rn:><>0THEN2055 

TR=:R : TC=C : GO3UB9000 : PRINT" '' '' ' " 

I PPR<>TRfìNriPC<:>TCTHEN2900 
I PflB3 < FR-TR > <>2flNBFC=TC:THEN2900 
I FfiE3 C FC-TC ) <>2RNriFR=TRTHEN2900 
riR= < FR+TR :■ /2 : MC= C FC+TC ) /2 
IFE ■; riR . MC > =0THEN2900 
E C TR .. TC > =E ( FR .. FC > : B < FR FC ) =0 

b-::mr.mc:i=0 
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2220 

2230 

2240 

2250 

2260 

2270 

2280 
2300 
2310 


2330 

2400 

2410 

2420 

2500 

2510 

2520 

2530 

2535 


2540 

2550 

2530 

2600 

2610 

2800 

2900 

2905 

2910 

2920 

2930 

2950 

3000 

3010 

3020 

3030 

3035 


R=FR : C=FC : Gi:iSUB9200 
R=TR : C=TC : GOSIJB9200 
R=r'1R : C=MC : GOSUB9200 
MV=MV+1 

H=2:V=13 :GOSUB9000:PRINT"TEMPO'".:ET$=TI $ 

PRI HTLEFTt < ET$. 2 > J " : “ ; MI ( EJt, 3.. 2 > ; " : " J RIGHT 

POKE VIC+1.0:POKE VIC+3.0 

FORI = 1T04 : FOR J= 1TOS : T=SGH < B < I.. J > ) 

IFI <:3THEH IFTOSGH C B <1 +2.. J ) > fiNDB a +1. J O0THEH 
2000 

IFJ<:7THEN IFTOSGN C B < I. J+2 > > FlHDB ( I. J+1 > •O0THEH 
2000 
NEXTJ>I 

H=0 : V= 11 : GOSUE9000 : PR I NT " NON •- HFl I -• PI LI •- ■- MOSSE. " 
PG=31-MV : IFPG<:BPTHENBP=PG : ET$=ET$ 

I FPG=EPfìNDET$<:ET$THENBTf=ET J: 

H=0 ; V-15 : GOSIJE9000 : GOSIJE3500 
IFVNTHEN1000 

PR I NT " riBOLR MI GL I OR ' PfìRT I Tfi " E ■' •• ' ' - ' - ' - " M 
PR I NT BP ; " PIOLO " ; : IFBPO 1 THENPRI NT " III " J 
PRINT■’ 'LflSCIRTO ' IN^ " ; : IFBPO 1 THENPRINT"IIIIIII 
Miiil" ; 

IFLEFT$-:ET$.2>O"00"THENPRINTLEFTf(ET$.2;'; " : " 
PRINTMIDt<BT$.3>2>;":";RIGHTJCBT^.2>J"." 

END 

IF (PEEKCJS) RNIi 16>=0 THEN 2600 
RETURN 

ET$=TI$:GOTO2410 

IFERC0THEN2950 

H=4 : V= 11 : GOSIJE9000 : PR I NT " SI MPOSSIEI LE •- T 

TN=:TI+^0 

IFTKTMTHEN2920 

GOSUB9000 ; PR I NT ’’ - - •- -■ ' •- 

POKEVIC+1.0 : POKEVIC+3.. 0 : GOTO 2000 

R=XR:C=XC:TM=0:ZT=0 

POKE SR.. 16*C+C0 ; POKE SR+1.. 165^R+R0 

IF TI>TM THEN POKE SCO <PEEK(SC>+8>RND15:TM=TI 

+ 15 

JD=PEEK < JS > RND31 : JB= ( JIK16 > : .JD=JURHD15 

GETI Ni: ; IFI Ni = " Q " THENPOKEVIC+2 iA3- PR I NT " ndItìGRR 

ZIE' PER- IL'GIOCO" :ENri 




C'i iJt C'i Cf'i Cf'! Cfì '7ì (Ti ‘Ti 
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3040 


IFJEfìNDJD=15THENP0KESC.PEEK(SO RHD7:XR=R:KC=C 
: RETURN 

IF TICZT THEH 3020 
ZT=TI+10 

IF JD finn 1 THEN R=R+l :IF R>4 THEH R=1 

IF JD flHD 2 THEN R-R-1:IF R<1 THEH R=4 

IF JD flHD 4 THEH C=i:;+1 : IF OS THEH C=1 

IF JD flHD 8 THEH C=C--1 : IF CCl THEH C=8 

GOTO 3010 
HO=0 

TM=0 : SW= 1 •• PRI HTTflE ( H+HT > ; " s$3 1OCHI •- flHCORfl? " «31 
HO ■■■ T' 

IF’tI<TM THEH 3550 

PR IHTTflE(H+HT+14+H0*4 > ; MI B$( " aSl" . SU. 1 > ; MI D$( " 
•'SIH0^%3ifH0+1.3>.; "1" 

SU=3-SU:TM=TI+15 

JD=PEEK(JS > flHD31 :JE=(JD<16):JD=JDfìHD15 
IF JE flHD JD=15 THEH 3600 

IFCJD flHD S)=0 flHD HO=0 THEH HO=l:GOTO 3510 
IFCJD flHD 4>=0 flHD H0=1 THEH HO=0:GOTO 3510 
GOTO 3520 

PR I HTTflE ( H+HT+14+H0-*4 > ; " S" j HI D$ ( " '' SI HO ' ". 3#H0 

+ 1.3> ; "H" : VH=(HO=0> • RETIJRH 

EHD 

PR IHT " a" : POKEQL. V+VT • PR IHT " 1" TflB ( HT+H > ; : RETU 
RH 

H=2if:C--1 : V=2i*R-1 : GOSIJE9000 : PR IHTMI D$ ( DT$. 1 +2;fE 

(R, O.. 2) : RETIJRH 

RETIJRH 

E=E ( R. O : E ( R. C :• =E+3 : GOSIJE9200 : E ( R. O =E : RETIJRH 
EHD 

IHì:=" ” : ZT=TI : ZC=2 ^ ZD$=:CHR$(20> 

GETZ$ : IFZÌO" "THEH60070 

I FZT<=T ITHEHPRI HTM I D$ ( " 1" . ZC . 1 > ; " II": ZC=3-ZC 

:ZT=TI+15 

GOTO60010 

Z=flSC(Z^> :ZL==LEH(IHi:) : IF<ZflHD127)<;32THEHPRIHT 
" :GOTO60110 

IFZL>QI THEH60010 
I m= I Hf+Zf : PR I HTZf ; ZD$ ; z$ ; 

I FZ= 13THEHI H$=M I Df ( I H$ > 2 > : PR IHTCRÌ ; : RETIJRH 
IFZ=20flHDZL>lTHEHIH$=LEFT^ ( IH$.. ZL-O : PRIHT"II" 
;:GOTO60010 
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60130 


60140 

61000 


61010 

62000 


62010 

62020 

62030 

62040 

62045 

62050 

62060 

62070 

62080 

62090 

62100 

62110 

62120 


I141 THEHZ$=CHRÌ C -20I*; ( ZL> 1 > > : F0RZ=2Ti:iZL : PRI 

HTZ$;:HEKT: 001060000 

GOTO60010 

CRT=1024 : VI0=53243 : Wri=40 : i::R$=CHR$a3;;' : 3111=542 
72 : .JS=56320 : CM=55296 
QL=214:QI=254:RETURN 

G0SIJB61000 : POKEVIC+32.. 0 : POKE VIC+33.0 ^ LH=LEN ( P 
Gf> :TB=':40-LN>/2 

PR I NT " □[BiSiPlema" TflB TB > LEFTf C " •- •- •- " " •- ’ ' •- ■- ' ■■ " 

LN) 

PRINT " a" TRB aS > PG$ : PR I NT " 3" TRE C TB > LEFT$ ( " - ■- 

PR I NT " Mifl" TRE •: 40 -lÉn < fllJ$ > > /2 > RU4: 

MS$ = " BRTTI •' RETURN " PER •-1NIZIRRE " 

IF JFTHENf1S$= " PREM n L •- JOVSTICK ' PER ’ INIZI RRE " 
TB=(':40-LEN<MS$>)/2> 

PRI NT " illBIlStek" TRB < TE MS# : PR I NT " SMeiKPjm. -- •• - '' •- •- 
•' ( C > •' 1983 THE CODE ' WORKS " 

GETIN#: IFIN$<>""THEN62120 

IF < PEEK < JS > RND16 ;• =0THEN62120 

PR INT " TRB < TE > LEFT# C " :iÌL". K+1 ) L 

EFTfCNSt.Q:- 

Q=Q+1 : IFQ>LEN-::MS$>THENQ=0:K=1-K 
GOTO62070 

CLR:PRINT"na":G0SUE61000 : GOTO100 




Vi trovate di fronte ad una "scatola nera” che contiene un certo numero 
di atomi, dei quali dovrete scoprire la posizione esatta. Al suo interno la 
scatola nera è divisa in 64 quadrati, formando una matrice di 8 righe x 8 
colonne e ciascun quadrato può contenere al massimo un atomo. L’unico 
strumento a vostra disposizione è un generatore di raggi laser da sparare 
all’interno della scatola per vedere come questi interagiscono con gli ato¬ 
mi contenuti. Questi raggi possono percorrere le righe e le colonne della 
scatola, mai le diagonali. 

Per scoprire la posizione degli atomi, dovete capire come i raggi interagi¬ 
scono con essi: la figura vi sarà d’aiuto (i numeri si riferiscono ai raggi 
nell’illustrazione). 


8 2 6 1 6 



8 3 17 
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1 . Se un raggio non interagisce con nessun atomo, prosegue il suo cam¬ 
mino e sbuca daH’altro lato della scatola. 

2 . Un raggio che si scontra con un atomo ne viene assorbito e non esce 
più. 

3. Un raggio che passa vicino ad un atomo viene deviato di 90°: la devia¬ 
zione avviene prima che il raggio lo possa raggiungere. 

4 . Un raggio che si trovi a passare tra due atomi separati da un quadrato 
vuoto viene riflesso e torna indietro sul suo cammino. 

5. Un raggio che si trovi, appena entrato nel quadrato, immediatamente 
vicino ad un atomo viene riflesso. 

6. Questo raggio è deviato due volte di 90° e ritorna quindi indietro 
uscendo dallo stesso lato da cui era entrato. 

7. Questo raggio è stato apparentemente riflesso: in realtà la riflessione è 
ottenuta come somma di due deviazioni e di una riflessione interna, 
col risultato di far sembrare diversa la posizione degli atomi. 

8. Questo caso è ancora più complicato: il raggio è stato deviato da quat¬ 
tro atomi, ma all’apparenza sembra che sia uscito dall’altra parte sen¬ 
za alcun problema. 

Quando iniziate a giocare con Laser, il C-64 vi chiede quanti atomi volete 
cercare nella scatola nera. Cambiate il numero usando il joystick. Quan¬ 
do appare la scatola, in un angolo vedrete una piccola freccia lampeg¬ 
giante, controllabile con il joystick, che indica il punto di ingresso del 
raggio, che viene sparato nella scatola premendo il pulsante. Laser segui¬ 
rà il cammino del raggio indicando l’ingresso e l’uscita con lo stesso nu¬ 
mero (sempre che esca). Se il raggio colpisce un atomo, nel punto di in¬ 
gresso appare una A (assorbito). Nel caso venga riflesso invece appare 
una R. 

Se pensate di avere indovinato la posizione di un atomo, muovete la frec¬ 
cia all’interno della scatola (essa si muterà in una croce) e nel quadrato 
scelto premete il pulsante; se avete indovinato apparirà l’atomo, se avete 
sbagliato il punto rimarrà segnalato da una croce in modo da non farvi 
ripetere lo sbaglio. 

Il gioco termina quando avete trovato tutti gli atomi. Durante il gioco. 
Laser tiene conto del numero di colpi che sparate per ottenere delle in¬ 
formazioni: sarete penalizzati di un punto per ogni raggio assorbito o ri¬ 
flesso, di due punti per quelli che sbucano fuori da qualche parte e di 
cinque per ogni tentativo sbagliato di indovinare la posizione di un ato¬ 
mo. 
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c 

^DC*^•TCll T 1 

1 IT T 1 T ’y'TClT T 



.. LnKn I 1 ciK i 


Lvw X1 1^ X ’ 

J 1 XLX4i£n 1 X 



SIMBOLI GRAFICI 

- SHIFT * 

1 

SHIFT - 

X 

SHIFT 

■ V 

• SHIFT Q 

r 

COMM A 

T 

COMM 

o 

■- COMM Z 

j 

COMM X 

% 

COMM 

+ 

COMANDI & COLORI 

a RVS ON 

■ 

RVS OFF 

ia 

HOME 


n CLEAR 


CRSR-D 

n 

CRSR- 

■u 

Il CRSR-L 

II 

CRSR-R 

a 

CTRL 

WHT 

k CTRL CVN 

m 

CTRL PUR 

il 

CTRL 

GRN 

m CTRL VEL 

E 

COMM WHT 

s 

COMM 

RED 

13 COMM CVN 

II 

COMM GRN 


COMM 

BLU 


PG$= - a. ■' fì ■■■ S E •• R " : flLI$== " n I HOWARD ' ARRIHGTON •' AH 
D'GLEH-FISHER":JF=1 

REM COPVRIGHT CC) 13S3 THE CODE WORKS 
REM BOX 6905.. SANTA BARBARA. CA 93160 

REM AS OF S/16/S3 BS 

REM EDIZIONE ITALIANA : EDIGEO 1934 

GOTO 62000 

DIM HT(32>. VT(32>. B O.S). G(9.. 9> : QI = 13 
FOR I==l TO 3 

HT(I)^S :VTa)=2*I+3 

HTa+3)=2i+iI + 10: VT(I+8>=22 

HT(1 + 16) ==29 : VT( I +16 ) =2* ( 9-1 ) +3 

HT(I+24)=23-2*I :VT(I+24) = 1 

NENT I 

GOSUB 5000 

i\m= " 

DEFFNR(2 > = INT(8*RND(1) +1) 

NA=5 

GOSUB 6000 : HR=NA : S=Q : CN= 1 : C't'=0 

FOR J=0TO9 : FOR I =0TO9 : B ( I. J ) ==0 : G ( I. J ) =0 : NENTI : N 
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Fi:iRI:=lTONfi 
X=FHR(1) :V=FHR(n 
IFB(K. V>O0THEN1S0 
:HEXTI 

GOSUE1000 : RH=0 : CL= 1 ■ POKE VIC+211 
PRIHT-aetftlkCOLPI : " ; S; "II' -■ " 

GETT$: IFT$0 "" THEH 205 

GOSUB 4000 : PRI NT DHf ; " " ■'"■IF Z$ C> " " TH 

EN 3500 

IF OD0 RND CKO AND CV>0 AND CVC9 THEN 3000 
POKE VIC+39.0 

: S'=:CV : Ll=0 : V=0 : GOSUB 900 
IF X>=1 RHD XC=S THEN V=-SGN(V-4) 

IF V;>=:1 RND V08 THEN U=-SGN':K--4> 

X1 =X+U • V1 V f V 

IFIJ=0THENX2=X1-1 ^ X3=X1 + 1 : V2=V1 ^ V3=V1 : GOTO330 
V2=V1-1 : V3=VH-1 :X2=X1 :X3==X1 

ONSif E(XI. V1 > +E(X2V2) +2i*B (X3V3> +1GOTO400.-410 
.. 420. 10 

S^S+1 PR I NT riN$ ; " Si’iSSORE ITO " : Tf = " R " : GOSUB S00 

^GOTO 200 

X=X1:V=V1:GOTO500 

Z=1:GOTO450 

Z=-l 

IFU=0THENU=Z : V=^0 : GOTO500 
Ij=:0 : V=Z 

ON(X+15 >/8G0T055e.520.580 
STOP 

ON(V+15)/8GOTO570.300.580 
STOP 

Z=:V : GOTO600 
Z--25~V : GOTO600 
Z=33-X : GOTOi500 
Z=o+X 

IF R=Z THEN S^^^S+1 SPRINT BNTJ ":S:I FLESSO T$=" 

R" GOSUB 800 03010 200 

S==S+2 : PR I NT DNT" li - EMERSO •' •' " : RN=RN+1 

ts=mid$(str$(rn:'. 2 :' : GOSUB 800 

R==Z : Tf=M 111$ ( STRT ( RN > . 2 > : GOSUB 800 
GOTO 200 

POKE QL. VT ( R ) : PR I NT " H" TRE ( fIT ( R ; C$ ; 

IF LEN(T$)=U RNIi RO^S OR R>:=25 THEN PRINT " . 

PRINT T:f: RETURN 




LASER 143 


800 

810 

820 


830 
840 
900 
910 
920 
930 
940 
950 
1 000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1100 
3000 
3020 
3025 
3030 
3040 


3050 

3060 

3070 

3100 

3110 

3120 

3400 

3410 

3500 

3510 

3520 

3530 

3600 

3610 


POKE QL . VT t R ) : PRI NT " T* TPE < HT ( R ) > ; 

IF LENa$> = l RND (R<9 OR R>24> THEN T$=" - "+J$ 
2$="":IF ■:R>=9 RHD RC-16) OR (;R>=25 AND R032 
> THEN 

=T$+ " " : PR I NT MI Dì •: T$. 1.1 . 2$ .i MI ri;f < T$, 2. 1 ) 
RETURN 
R=-l 

IF K==0 THEN R=^V 
IF V=9 THEN R=:X+8 
IF X=9 THEN R=:25"V 
IF V=0 THEN R=:33--N 
RETURN 
PRINT "."IWtì" 

PRINT TFlE(ll); "Kr-1 

POR 1=1 TO 8 

PRINT TflBdi::'.; " lal^ ^ :R| 

IF I <:3 THEN PR I NT TfìB (11 >! •' ■- " •" ' I 

NENT I 

PRINT TRECll).; "K'----.' 

RETURN 

RETURN 

POKE VIi::+39.0 

POKE QL. 3+2#CV : PR I NT TRE C 10+2*i:;K ) ; " ’T II" ; 

IF G'::cx..cv:;' then 3100 

U IJX j IJ V ) ~ 1 

IF E<CN.CV>=0 THEN 3=3+5 PRINT "«Sx:" PRINT DN 
"i!i*SEflGLIO*" :GOTO 200 
PRINT " Hto ":HR=HR-1 :PRINT DN$ J "MG IU3T0*" 

IF HR=8 THEN PRINT DNf ; "aliiiJONGRRTULRZIONI ! " 
^GOTu 3600 
GOTO 200 

IF BCCX.CV) THEN PRINT "nH:" 

IF E'rcx.cv>=e then PRINT "Urt:-;:" 

PRINT DNf;"n-INUTILE":GOTO 200 
PRINT DN$.; "aliiCONGRfìTULflZIONI ! " 

GOTO 3600 

FOR CV=1 TO 8:POR CZ=1 TO 8 
IF E(CX..CV>-C>1 OR G':C>7i::V> THEN 3530 
POKE QL.. 3+2;fCV : PR I NT TfìB 10+2#CX )" FE» " 

NEXT CK.CV 

POKE VIC+21.0:NO=0 

TM=0 : 3W= 1 : PR I NTDNf ; " M1B1BI31OCHlRNCORR''* •- ' 31 ■- 
NOn" 
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3620 

3630 


3640 
3650 
3660 
36 r' 0 
3630 
3630 
3700 
3710 
4000 
4010 
4020 
4030 
4040 
4050 

4060 

4100 


4105 

4110 

4115 

4120 

4125 

4130 

4135 


4140 

4145 

4150 

4155 

4160 

4165 

4170 

5000 

5010 

5020 

5030 

5040 

5050 

5060 


IF TI Ciri THEN 3650 

PRIHTTRE <: 26+H0*4 ) ; MI M- ( " aSi" SW. 1 ) MI m ( " ■- £ I HO 
•'%3*H0+1..3>; "H" 

SW=3-SW:TM=TI+15 

JD=PEEK •; JS > fìHD31 : JB= ( Jn-C 16 > : JD^JIiFlND 15 
IF JB fìHD Jri=15 THEH 3700 

IFCJD flHD 8)=0 fìMI) HO=0 THEN NO==l:GOTi:i 3610 

iFCjn RHU 4:'=0 finn ho=i theh hi:!= 0 :goto 36 10 

GOTO 3620 
IF HO=0 theh 150 
PRIHT "□•'•EHD 
T=0:IF CX=0 THEH T=1 


IF THEH T=3 

IF CV=0 THEH T=2 
IF i:V=9 THEH T=4 
y.-cy.^ 16+34 : V==CV* 1 6+65 
POKE SP.S0+T:P0KE VIC. 
SO+T 


POKE VIC+l.V^POKE SP.. 


IF TI>Tri THEH POKE VIC+33h::L : CL=12-CL : Tri=TI + 15 
JD=PEEK(JS > ANDO1 :JB=(JIK16):JD=JDRHD15 :DX=0:D 


V=0 

GETZ$: IFZ$C;>"" THEH RETURN 
IFCJIi RHD 1)=0 THEH riV=-l 
IFCJD RHD 2)-“0 THEH DV=1 
IF<Jri RHD 4)=0 THEH DX=-1 
IF<JD RHD S)=0 THEH D:K=1 
CX=CH+DK:CV=CV+DV 

IF CCHCl OR CK>S) RHD CCVCl OR CV>S) THEH CK= 

C:K+DX+DX : CV=CV+DV+DV 

IF CX>3 THEH CX=CX-10 

IF CX<0 THEH CX=CX+10 

IF CV>3 THEH CV=CV-10 

IF CVC© THEH CV=CV+10 

IF D7: OR DV THEH CL=1 : TM=0 : GOTO 4000 

IF JE=0 THEN 4000 


RETURN 


RESTORE:SB=16384-64*5 :SP=CRT+1016:S0=SB/64 
READ T$:IF T$0"£" THEH 5010 
FOR 1=0 TO 4:SR=SE+64*I 

READ H:FOR J=0 TO H-1:RERD T:POKE Sfì+J..T:HE7:T 
FOR J=H TO 63:POKE 3R+J.0:HEXT 
POKE SP+I.SO+I:HEXT I 
POKE VIC+1.0 
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5070 

6000 

6010 

6030 

6040 

6100 

6110 

6120 

6130 

6140 

6150 

6160 
6170 

52999 

53000 

53001 
53010 

53020 

53030 

53040 

60000 

60010 

60020 

60030 

60070 

60090 

60100 

60110 

60120 

60130 

60140 


RETURN 

PRI NT " □MslQIJfiNT I - RTOMI ? •- ' -■ W ; 
POR 1=1 TO IO 

PRINT STR$ CI>; :NEXT:PRINT" T' 
C=1:TM=0 


T=Nfì*2+14 

IF TI>TM THEN PRINT TfìBa> ;. Co 1 > ;STR 
$ C Nfi > ; " HK" C=3”C : Tr-1=T I + 1 5 

JD=PEEK; < JS > flNDS 1 : JB= JD< 16 > : JD=JDfiND 15 : Ofl=Nfi 

IF CJD RND 8>=0 RND NRCIO THEN NR=Nfì+l 

IF (JD RND 4>=0 RND NR>1 THEN NR=NR-1 

IF ORONfl THEN PRINT TRE<T> ;STRfODR)"H" : Tri=0 

:C=l:G0T0 6100 

IF JB=0 THEN 6100 

PR I NT TRB < T > " T ; SJR$ <. NR : RETURN 

DRTR £ 

DRTR30.0.. 255 > 240.0. 1920 48.0.1920 4£0 0 > 19248 > O 

.192.48.0.192.48.0.192.48.0 

DRTR192.48.0.192.48.0.255.240 

DRTR23.0. 0. 0.0.0.0.0. J. 0 .0.3.1 28 .0. ò3. 19ii. .0.6 

3.192.0.3.128.0.3 

DRTR26.0.0.0.0.6.0.0.6.0.0.6.0.0.6.0.0.31.128 


.0.31.128.0.15.0.0.6 

DRTR23.0.0.0.0.0.0.0.12.0.0.28.0.0.63.192.0.6 
3.192.0.28.0.0.12 

DRTR 26 .0.0.0.0.6.0.0.15.0.0.31.128.0.31.1 28 .0 


.6.0.0.6.0.0.6.0.0.6 

INf=" " : 2T=TI : 2C=2 : 2Df=CHR$C20) 

GET2$: IF2t<>""THEN60070 

IF2T<=TITHENPRINTMID$c: " •'ii".2C. 1 > J "II" J : 2C=3-2C 

:2T=TI+15 

GOTO60010 

2=RSC < Z$ > : 2L=LEN < I N$ ) ; IF < 2RND127 ) <:32THENPR I NT 
"•'ir; :GOTO60110 
IF2L>QI THEN60010 
I N$= I m+z$ ■ PR I mz$ ;-ziiì- ; z$ 

I F2= 13THENI N$=r‘11 D$ U N$. 2 > ■ PR I NTCRf ; : RETURN 
I F2=20RND2L> 1 THEN I N$=LEFT# < I m . 2L-1 > : PR I NT " II" 
;:GOTO60010 

I F2= 141 THEN2$=CHR$ c! -20* •:! 2L> l ) ) ' Fi:iR2=2T02L : PR I 

HTZti :NEXT:GOTO60000 

GOTO60010 
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61000 


61010 

62000 

62010 

62020 

62030 

62040 

62045 

62050 

62060 

62070 

62080 

62090 


62100 
62110 
62120 


CRT= 1024 : VI C=5324S : Wri-=40 : CRì=CHRi: (13 ) : SI D=:542 
72 : JS^^=56320 : CM=55296 
QL=214:QI=254:RETURN 

G0SUE61000 : POKEVIC f 32.. 0 : POKEV11:;+33.0 : LN=LEN P 

Ufj' • TB~ C 4U~LN ,''2 

PRI NT " neMBlismsJ'* TRE ( TE > LEFT3: ( " ' ■- •- 


PRINT" 


LN) 

a" TRE < TE > PGf : PR I NT " Zi" TRE ( TE > LEFTÌ " 

. •' ••• •• ••• •' •- - , ln> 


PR I NT '* m" TRE ( 40--LEN RUf ) > /2 ) RUf 


r-1S$= " ERTTI ' RETURN ■- PER •-1NIZIRRE " 

I FJFTHENMS$^ " PREM I •-1 L - JOVSTI CK ' PER ■- INIZI RRE " 
TE=((40-LEN'::MS3:)>/2) 

PR I NT " TRE ( TE ) MS$ : PR I NT " MfllBMiaelSli.- •- - - •- ' - 

■ ( C ) ■' 1933 THE " CODE ' WORKS " 


GETI Ni: : IFI - - THEN62120 


IF PEEK ( JS > RND16 > =0THEN62120 

PR I NT ■■ aflsMBMClSSieMBim" tre C te ) LEFT i .. K+1 ; L 


EFT$<MSÌ.Q) 

Q=Q+1 : IFQ>LEN ( MSi > THENQ=0 : l<:= 1 ~K 
GOTO62070 


CLR:PRINT":G03UE61000 : GOTO100 



Prato 

(joystick) 



L’estate è finalmente arrivata e il prato della vostra casetta di campagna 
ha bisogno di essere tagliato. Come servizio per i nostri lettori, vi offria¬ 
mo la possibilità di tagliarlo senza muovervi dalla poltrona! 

Lo scopo del gioco è di tagliare tutta l'erba del prato di una villetta nel 
minor tempo possibile, poiché la benzina costa e la vostra falciatrice ne 
consuma parecchia; se ci mettete troppo correte il rischio di rimanere a 
secco prima di terminare. Come in qualunque prato, troverete sassi ed 
erbacce che rallenteranno il lavoro. Il programma vi offre una scelta di 
livelli di difficoltà, che varia la velocità con cui si svuota il serbatoio del¬ 
la falciatrice. 
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ir-OC-r-TCìI T IITTI T"7 

"7ftTT 


LnKn11tKl 


irc.iwxnL.1 uiiui£. 

liin i i 


SIMBOLI GRAFICI 

- SHIFT % 

1 

SHIFT - 

1 

SHIFT G 

1 SHIFT H 


SHIFT U 


SHIFT I 

•- SHIFT J 

X 

SHIFT V 

1 

SHIFT K 

/ SHIFT N 

\ 

SHIFT M 

0 

SHIFT W 

r COMM A 

■ 

COMM F 

■ 

COMM I 

■ COMM D 

T 

COMM S 


COMM + 

1 COMM K 

1 

COMM G 

1 

COMM M 

_ COMM e 


COMM E 


COMM T 

H COMM W 

L 

COMM Z 

J. 

COMM E 

-■ COMM X 

1 

COMM H 

1 

COMM J 

1 COMM L 

1 

COMM N 



COMANDI & COLORI 

a RVS ON 

■ 

RVS OFF 

a 

HOME 

n CLEAR 

» 

CRSR-D 

n 

CRSR-U 

Il CRSR-L 

II 

CR3R-R 

II 

INST 

SI CTRL WHT 

k. 

CTRL CVN 


CTRL PUR 

li CTRL GRN 

wm 

Mi 

CTRL BLU 


CTRL VEL 

R COMM WHT 

lì 

COMM CVN 

li 

CONM GRN 


1 PG$:= " " P R Fr T "0 " " : fìU$== "IlI KFITHV ■-HIGBV " : JF=^ 1, 

5 REM COPVRIGHT <0 1383 THE CODE WORKS 

6 REM BOX 6305. SfiHTfì EfìRBflRfì.. Cfl 33160 

10 REM FhS OF 8/16/33 GF 

50 REM EDIZIONE ITRLIRHfr EDIGEO 1384 

30 GOTO62000 

100 DIMJD15::-. M( 3 > : FORI =0T 0 1 5 : RERDJD( I > : NEXT 

101 DRTR0.0.0.0.0.3.9.6.0.1. ?.• 4.0.2.8.5 

102 DEFFNJ •: X ) - JD < PEEK ( JS+X > AND 15): DEFFNB X ) = •: PEEK 
(JS+X>RHD16)=0 
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GOSUE 1000 

T=WD : Fi:iRI=2T08STEP3 : FORJ^-lTOl : N( I+J>=T+J : NEK 
T.T : T=T-WD : HEXTI 

FORI=01028 :POKESID+1.0 :HEKT:POKESID+G.240 :POK 
ESID+4. 17:VL=SI.ri+24 
11=0 :p==0:D=G/40:F= 159 
RR|:= " 

X=i::RT+WD*23+38 ■ fì=5 : 8=81D+1 : POKEVL. 6 : POKES. 0 
XC=K--CRT+CM 

PRIHT"n*^ERCEHT -EENZ : S " •- •' '' " '■ '' ■" " " 


PRIHT"ai 


PRnn"n\mmmm:i\ wa^ 
pRim"n\i^&mm sia’^ 
PRiHT-'nifi^ii«geai sia-' 




■1'^ 11 ! 

■"■ai! IBiima imimmimm 


"■■all 


pR I NT " n I sia-" •' " •" «ani 




PRI NT " 1 1 t&Mmst A aa-" •" " «a 11 i mmmmmmmmmm 


PRiNT"ni8Éiiiiiisga.4i aa-‘ 
1 

PR INT "n Isr"r8ia ■■xsri • 

ywx-j_E2;¥: •> < ' al l 

PRINT"niBL . <. ai :« ■■ 
pRiNT"E!!Sf... a’:® •• 

l5!*SÉ^M^a.-.St. a'-IBEii 

PRINT'niEi .. X. :«•"•" 
5g:a'-‘iiiis*gai 
PRINT"ni6»;;;Ìii;:l:l!!'- ••■ 

.X':':-:':*»:*:*;..:-:*:*;*:-:';*:- mg i 

xy*X'.'x¥i>J;¥.J.s> «H I 

PRINT"n!B^Sig?aK"" 

' ' ^ I 

ppiNT^iBi :«•••" 

5?iS.'?i^>^:-£?i-x5a I 

FRim''^ìmmmmiSK^' ' 

%¥:¥.¥:':-:¥¥:¥¥¥x’ ^ | 




'""■aiWMaiB^ .;.. ""riMi 
■ 5!a aa’ usa '"wfiKoS'isi’iiisiixsssi!;. 

"• •" "a ■-• aa'" ■" •" «a i hi^bè^w^bèm 

^a I 

..-x X .• ..-x ..• X 


PRINT"'11BE. 

ai | 


a .■■:«" 


’mwmm 


"HiWBÈSlig 
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PRIMT " :i ! - mm 

I 

PR I NT " n I ùfc. _- 3 - •'••••-• ^ ••• - ■•• ■- •' a ■•• mm 

PR I NT " n I •■■ •' " sa - •- a^' 

>X*X*X'MvXvSvX*>!*<wS^A' i 

PRINT"niBE 
PR I HI "T IBS s, 

r r*. X11 I .il ■ìd:«>x«Xi>x4^>>:*Xv^: a ^ «•<> ^ / «'•^;«%wX^^Xw&' 

i^ia i :iiiD 

priht" '-LJ 

iii-^ 


POKES111+14.. 255 : P0KE3111+15.1: POKESID+20.240 
POKESID+19.160:PQKESID+20.250 
POKE SID+18.33 

Fl=FNJ(:0) : IFfiC>5THENIFJW<>lTHENW=r-1(:R;;' 

ON JW+l GOTO 404.402.403 
JU=2 :GOTO404 

I FflOSTHEMPOREVL. 6 : PO' ;;ES I D+18 .33 : PR I NTRfì^ ; " as 
-" :JW=0 

GETI Hi : IFI m'-= " Q " THEHPRI NT " ."TpISGRRZ IE •' PER -1L - GI 
OCO" : P0l<ESID+24.0 : END 
2==PEEKO<+U> :FR-:255: IFZ==^32THEN430 
IFZO102THEN440 

FR=128 :P=P+1 : IFRND';: 1 X. 007THEN770 
POKEK.32 :X=N+U:XC=XC+U 
POKEZ.V :POKEZC.1 :POKESID+14.FR 
IFTI>TMTHENV=177-V:TM^TI+4 

I FJI-J=0THENF=F-D : PR I NT " 53^" TRE •:; 8 > I NT ■: P.- ‘5063^ 1 00 > 
ZZ^ I NT C F.-'8 > : PR I NT " M" J TRE C Z2+ 18;'.; fi I D^ •: " ■ - Hi?» 
1 a a la la r.23kiNT<F-3*zz>+i.2> 

REM 

IFF>0RNDPC506TNEN400 
POKE SID+13.0 

ris$= " a=-1NITR •- EENZINR !" : I FP=506THENriS$= " itìfi I • V 
INTO!» - ' •• ■•■ ■• ••■ ' " 

PRINT"i3"MSt" -■ ••• ■•■ •- •- •- - •■ -■ ■■■ -■ ••■ -■ ' : IFP C506 

THEN575 
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570 


cmtr 

._i,- J 

576 


600 

630 

635 

640 

645 

650 

653 

655 

660 

665 

670 

675 

680 

690 

770 


780 

790 

1000 

1010 

1020 

1030 
1040 
1 050 
1 060 
1070 
1100 
1110 
1120 
1130 

1140 
1150 
1160 
1170 


POKEX. 215 : FORX=1TO250STEP. 5 : POKES.. X : HEKT : POKE 
8.0:13010600 

POKESID+14.64 :POKES10+15.4 

POKESI ri+ 1 7. 1 : POKES 1 0+18 .. 65 : F0RJ= 1TO2000 : NEKT : 

POKES iri+18.0 

PRINT":i!!MPJ"MS$ 

TP=IMT(:P/506>kl00) : IFTP>BPTHENEP:==TP 
GM=i3r'H-l : TT=TT+TP : RV^IHiaT/GM) 

PRI NT " WBF'flRT I TE " GM " GIOCRTE ' fl - LI VELLO " G 

PRI NT " Wtì" '• PERCENT •- DEL •- PRATO ' TRGLIRTO " 

PRINT" " ••• •' •-- 

PR I NT '• MI'LIESTR - PRRTI Tfi : " TRE C18 ) T P 
IFGM=1THEN670 


PR I NT " :pI1ED ir:" tre C 18 > RV 

PR I NT " Wl I GL I OR RISULTRTO : " TRE CIO) EP 

POKEVL. 0 : G03IJB1100 

IFRTHENllG 

P0KE59466.0 : P0KE594670 : PR I NT " :i:Saa" : END 
GOTO670 

POKEVL.15:poke:<. 32 :POKESID+18.32 :PRINT"3"; 
X=N+U : XC=:;C+W : EEf = " :KRSS05" : IFRND ( 1 ) <. 5THENEB 
$=":€RERC"" 

PRINT RR$; "aa" .;BEf 

w==0 : JW=1 : : PRINT" S" J : GOTO440 

PR I NT " □atSCEGL I -■ UlT " LI VELLO •- : :eli3" : 

FORI = 1TO10 : PR I NT I ; : NEXTI : PR I NT : G==5 : T= 1 : Tri==0 

X=G:IF TI>TM THEN PRINT TfiB';;3.4iG-3) ;MIDf< "*0". 

T. 1 ) ^ " H" J G : T:=3-T : Tri=T I +5 

IF FNJC0)=4 THEN IF G>1 THEN G=^G-1 

IF FNJC0>=6 THEN IF 0610 THEN G^^G+l 

IF XOG THEN PRINT TRE<3j»«K~3) ; "SH" ; N : T=1 : TM=0 

IF FNE<0)=^0 THEN 1020 

RETURN 

PR I NT " ;tìa»31OCHI " RNCORR '- ■- •' SWO •- •- SI •- " 


fi=l :T==1 :TM=0 


N=R:IF TTCTn THEN 1150 

PRINT N IDf C " 3M". T. 1 >. TREC16+4^fì) : "H"M I D$C " NO 


•'SI -".SifR+l.S) 

T=3-T:TM=TI+18 
IF FNJ'::0)=4 THEN R=0 
IF FNJ(:0)=6 THEN R=1 

IF XOR THEN PRINT TRB( 16+4*X) ; "riil" ; MIDTC "NO-' 
3I -'".3:+:X+1.3) :T^=1 : TM==0 
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1190 

1200 

60000 

60010 

60020 

60030 

60070 

60090 

60100 

60110 

60120 

60130 

60140 

61000 


61010 

62000 

62010 

62020 

62030 

62040 

62045 

62050 

62060 

62070 

620S0 

62090 

62100 
62110 
62120 


IF FHB(:0>=0 THEH 1120 
RETURH 

I H$= " " " 2T=T 1: 2C=2 : 2ri$=CHR$ <20 > 

GET2$ : lfZ$-Cy" "THEN60070 

IF2TC=TITHENPRINTMIIi$< " -ir .2C. 1 > ; "II" i : ZC=3“2C 

:2T=TI+15 

GOTO60010 

2=RSC<2$> :2L=LEH<IH$) : IF<2fìNril27)<32THEHPRINT 
"'irj :GOTO60110 
IF2L>QI THEN60010 
I H$= I H$+Z$ ■■ PRI HT2$ ; ZBt- ; Z$ i 

I F2= 13THEHI N$==M I Dt < I. 2 > : PR I NTCR$ ; : RETURN • 

I F2=20fìHDZL> 1THENI N|:=LEFT$ < I . ZL-1 ) : PR I NT " II" 
. :GOTCl60010 

I F2= 141 THEN2$=i::HR$ < -20* < 2L> 1 ) r F0R2=2T02L : PR I 

NTZf; :NEXT:GOTO60000 

GOTO60010 

CRT-1024 :VIC=5324S:UD=40:CR^=CHR$<13):SID=542 
72 :JS=56320:CM=55296 
QL=214:Q1=254 : RETURN 

GOSUEe 1000 : POKEVIC+32.. 0 ^ POKE VIC+33.0 : LN=LEN < P 
Gf):TE=<40-LN>/2 

PR I NT " liCMBftìliSa" TfìB < TE > LEFT^ < " ' -■ " ■- ' -■ 

• . LN> 

PR INT " a" TRE < TE > PGS : PR I NT " 3" TRE < TE > LEFT$ < " -■ ' ' ' 

PR I NT " W?]" TRE < < 40~lÉn < fìU$ > /2 > fiUf 
MS$= " BRTTI •- RETURN •- PER - INIZI RRE " 

I FJFTI-!ENMS|:= " PREM T' IL - JO't’ST ICK - PER -INIZI fìRE " 
TE=<<40-LEN<MSJ:>>/2) 

PR I NT " MBIUIPA." TRE < TE > MSì: : PR I NT " MWflSIilMak-’ - ' ' -’ ' - ' 
" < C> •-1983 -■ THE - CODE -' WORKS " 

GETI m : IFI Ni■-;> " " THEN62120 

IF < PEEK < JS > RND16)=0THEN62120 

PR I NT "MeltìPitìWBMBMeMcMiifl" TRE < TE > LEFT$ < " . K+1 ) L 

EFT$<NS$.Q> 

Q=Q+1:IFQ>LEN<MSf>THENQ=0-K=l-K 
GOTO62070 

CLR:PRINT"na":G0SUE61000 : GOTO100 



Kalah 

(joystick) 



Kalah è un gioco da tavolo con una lunga storia: in origine veniva gioca¬ 
to in Africa, dove si utilizzavano dei sassi messi in piccole buche scavate 
nel terreno: in seguito al posto delle buche venivano usate delle tavolette 
di legno intagliate, e ancora dei sassolini che venivano spostati da una 
concavità all’altra. La versione moderna prevede una tavola di plastica e 
delle palline colorate. Il gioco però è rimasto sempre lo stesso, anche sul 
C-64, dove buche e sassolini sono stati sostituiti con circuiti integrati e 
schermo. 

Ogni giocatore ha davanti a sé sei buche, più una settima chiamata ka¬ 
lah, alla destra delle altre. Ogni buca è di fronte ad una deH'avversario e 
i due kalah sono alle estremità. Una mossa, in questo gioco, consiste nel 
prendere tutti i sassolini contenuti in una buca e "spargerli” nelle altre 
in senso antiorario, uno per buca; nel giro dovete includere le vostre bu¬ 
che, quelle deH'avversario, il vostro kalah, ma non il kalah dell’altro gio¬ 
catore. Così 13 sassolini contenuti in una buca qualsiasi faranno un giro 
completo di tutte le buche, con un sasso che finirà nel vostro kalah e l’ul¬ 
timo che terminerà nella buca di partenza. Il gioco termina quando uno 
dei due giocatori ha svuotato tutte le sue buche: l’altro giocatore a quel 
punto trasferirà tutti i sassi rimasti nel suo kalah. Vince chi alla fine 
possiede più sassi nel proprio kalah (e quindi non necessariamente chi 
svuota per primo le sue buche). Il gioco è controllato da due regole: 

1. se l’ultimo dei sassi che muovete finisce nel vostro kalah, avete diritto 
ad un’altra mossa; 

2. se l’ultimo dei sassi spostati finisce in una buca vuota delle vostre, di 
fronte ad una piena deH’avversario, il vostro sasso e tutti quelli della 
buca dell’auversario vengono trasferiti nel vostro kalah. 
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In questa versione del gioco potrete scegliere se giocare contro il C-64 o 
contro un’altra persona, oltre a decidere quanti sassi vengono posti in 
ciascuna buca all'inizio della partita. 

Per scegliere il numero, posizionate il cursore con il joystick e premete il 
pulsante; per terminare prima del tempo la partita invece, battete Q 
quando è il vostro turno di gioco. 

Se decidete di giocare contro il C-64, fate attenzione perché è un ottimo 
giocatore: inoltre più sassi mettete nelle buche all’inizio e più difficile e 
lungo sarà il gioco. 


CfìRflTTERI SPECIALI UTILIZZATI 


SIMBOLI GRAFICI 


- SHIFT # 

1 

SHIFT - 

r 

COMM A 

T COMM S 

L 

COMM 

-7 

j 

COMM X 

I- COMM Q 

H 

COMM 

N 

» 

COMM d 

- COMM P 

« 

COMM 

0 

m 

COMM I 

“ COMM IJ 


COMM 

V 

" 

COMM T 

^ COMM + 






COMANDI & COLORI 






a RVS ON 

■ 

RVS 

OFF 

a 

HOME 

J CLEAR 

II 

INST 


» 

CRSR-D 

n CRSR-U 

II 

CRSR- 

-L 

II 

CRSR-R 

a CTRL WHT 

k 

CTRL 

CVN 


CTRL PUR 

li CTRL GRU 

ni 

CTRL 

VEL 

a 

COMM CVN 

la COMM PUR 

ri 

COMM 

BLU 




1 PGf = " • K •' A -■ L •" fì H ’• : R1J$- "DI-’ IT-lLE ' COOPER " : ..JF“ 1 

5 REM COPYRIGHT ':;C) 19S3 THE CODE MORKS 

6 REM BOX 6905. SANTA BARBARA. CA 93160 
7* 

10 REM AS OF 8.-’16/83 GF 

50 REM EDIZIONE ITALIANA EDIGEO 1984 

90 GOTO 62080 
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: EL$=^" ' - - ■■ ' - 


MDf=LEFT$'::riNf. 13:;' 

DIMPT<:i4>.CTa2>.HTa2>.KL-:;2>>T£<2>.0P(:2).ER'; 
2>>PC$(2;) :NS=5 
se < 1 > =0 : se ( 2 > =0 : GOSIJB2200 
pe$<i>="ni" :pe$(2>=”k" 

PR$= " VUOI '■ GI OePiRE eOHTRO IL •' G64 ' - " : GOSIJB3500 : 
PRIHT 

IFVHTHENGH= 1 : PL$ <1 > = " TU " " : PL$ 2 > " " CG4 " : G0T02 
60 

GH=0 

PRI NT " JSWDME " DEL ' PRI NO? ^ ; GOSUB60000 

PLJ: a :• =LEFTi: < I Nf. 20 > a FI N$ = " " THENPLÌ 1. > = " PR IM 

O-GIOGfiTORE" 

PR I NT " JHOME •' DEL SEGONDO? " ; : GOSIJB60000 

PLi: < 2 > =LEFT^ < I. 20 > : IFI N$= " " THEHPLf 2 > = " SEGO 

NDO'GIOGfìTORE" 

TB(l> = INT<20-LENCPLJ:(i;O/2> :OP(U = l :BRa > = 11 
TE < 2 > = INT(20-LEN < PL $< 2 > >/2 >:OP(2 > = 1 :ER(2 > = 11 
GOSIJB 4000 
KLa>=7:KL(2> = 14 

FORPT=1TO14 :PT(PT > =HS;NEXT:PT C KL a > > =0 :PT( KL C 
2>>=0 

GOSIJE820 : NP=30 

F0RPL=1T02 : PT=K;LCPL> : GOSIJE2000 ; HEKT 

PL=1:F0RI = 1T08STEP7:F0RPT=IT0I+5:GOSUB2000: NE 

xtpt:pl=2:ne:=<:ti 

PL=1 

RVf=" a" : GOSIJB 1800 

IFGH=0ORPL=1THEN380 

GOSIJB1010:PT=PT+1 

GOSUB1850 : PR I NT " Wtffiiltì" ; ELf ; " T' 

T= 14-PT : POKE VIG+2. e0+40stsT : POKE VIG+40.1 
GOTO 410 

GOSUB 2300 : I FPT<0THENPT ( KL ■: 1 > > =0 : PT < KL < 2 > > =0 : 
GOTO750 

T=PT:IFPL=2THENPT=14-PT 
IFPT<PT>=0THEN350 

GOSUB 1850 : PR I NT MID^ < " TmeltìeiiQ" > 4*PL-3.4 > ; BL$ 

i **n** 

PRI NTTfìE < 53*«T > ; PGf C PL >. " C " ; M1 1 )$ (. STRf C PT < PT > >. 
2>;">" 




co co OD CO CO CO co co co ~ J *'j ~-l --J "-J "si "'J " J -- J *'J -‘•1 ~'J CTì CTì Ol CH CU ^ ^ 41. 4i 

-fi -fi CO CO CO f'O •-* O Q CO “••J Ch OD Cfl CO CO f*-D PO PO O G* C£< CO “-J *-* G CTì CH -fi CO P-D 

CO G CT i CO G G G U1 G G G CU G G G CH G CU G . G CH G G G G G G G G G G G CH 
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GOSIJB1850 : PRI HTELf : GOSUE1530 
IFP1=eORP2=0THEH670 
IFPTORL C PL > THEN500 

GOSUE 1350 •• FRIHT TREOO^j^IF PL =2 fìHD CH THEH 
PRIMI " 13 'H 0 "; :GOTO 460 
PRINT *'*' 3 '* HRI’ 

PR I HT " " UH RLTRfl ■- MOSSR" : GOTO 340 

RV$= " SI" : GOSUE 1 SOO : POKEVIC+ 38 +PL.. 12 

PL= 3 -PL:POKE VIC+ 3 S+PL.BR < PL >:BR < PL > = 1 : GOTO 3 

40 

REM 

PT= 1 :PL= 1 :MP =35 

FORPL= 1 T 02 : Z= C PL --1 ) * 7+1 : k;=KL < PL > 

F0RPT=ZT0Z+5:1FPT C PT)=0THEH710 
PT < l< =PT < K > +PT < PT > : PT PT ) =0 : GOSUE2000 : GOSUE 19 
00 

HEKTPT : HEIKTPL : PL =2 : GOSUE 1850 : PRIHT"TT’ ; ELf : PR 
IHTBL^ 

I FPT < KL < 1 > > OPT < KL C 2 ) > THEH 730 
RV$-"fJ" : PL =1 : GOSUE 1300 •' PL =2 : GOSUE 1800 


PRIHTMDÌ; TRBC15) ; " ^'•RRI ! " : GOTO750 

PL=2:1FPT < KL < 2)> >PT < KL <1))THEHPL=1 

RV|:="SI" : GOSUE 1800 : PL=3-PL : RV$=:" a" ; GOSUE 1800 

PR I HTMD$ J TRE < C 32 -LEH < FLS- ( PL > > > /2 > ; " SI-/ 1 HCI TORE 

••■a";PL$<PL) 

POKEV IC+21.0 : PR I HT " @1" ; TRE ( 15 ) ; " SiS ITURZI OHEk 
POR I = 1102 : se < I > =SC ( I ) +PT < KL ( I ) 
PRIHTTRB';20“LEH<PL$a > > ) j PL^*: D J " : " ; SCC 1) : HEXT 
PRIHTDH$; BL-S; "T : PR$="GI0CHI "RHCORR" : GOSUB350 
0:IFVH=0THEH900 

PRIHT":3" ; PR:i:=="STESSr'HOMI " : GOSUB3500 : IFVH=0T 
HEH180 

PR I HTBL$ ; " 1" : PR$= " RHCORR " +STR$ HS ) + " ••• PIETRE " : 

IFHS=1THEHRIGHTf < PR$.1> = "R" 

PR$=PR$+"'PER-BUCR":GOSUE3500:IFVH=0THEH270 
GOTO290 

POKEV I C+21.0 : POKEV IC:+39.11 : POKEV IC+40.11 : PRIH 
T":ii!lMPl(!Mi!!li] 

,-, M : g^_.. ,-,.. : p^-.. . . .. p,.. ||u^ .. 

PRIMI" r-,"TfT$T$TS:T$T^" .-.lli- 

FORI = 1T03 : PR I HT " I " P$P$P$P$P$P$ ; " •- I " K$ ■ HEXTI 

PR I HTKf " >1" Ef B tB$B$Ef B$K$ 

PRIHTKJ:TRB<35:'K$ 
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846 PRINTK^"M" T$J$J$J$T$T$KS 

850 POR I = 1T03 : PR I HTKt " » I " Pf Pf P$P$P$Pf \ HE" : HEXTI 

853 PRINT" '-"'E$EfB$E^E$Ef" '-'lll-al 

860 RV$="iI":FOR PL=1 TO 2 : GOSIJB1800 : HEXT PL 
863 POKEVIC+21.3 :RETURH 

900 POKE VIC+21.0: PR I NT " rjttifflfl" ; TRE a 2 >" BKI SULTfiT I 
■TINfìLIk 

910 PORI = 1T02:PRINTTflE(20-LEH C PL$ CI)>)J PL$<I);":" 

;SC<i;' :HEKT 
920 PRIHT'Tl" :EHD 
1010 PT=12 :SC=-100000 :SW=1 
1015 PRIHTMrif;TflB<19); 

1020 GOSUE1210:1FCT C PT > -13+PT= 13* I NT < < CT C PT > --13+PT 
>/13)THENRETURN 
1030 PT=PT-1:IFPT>6THEN1020 
1040 CP=7:PT=? 

1050 CT=CP:POKEVIC+2.C0+40# <13-CT >:POKEVIC+40.1 :GO 
SIJB1210: GOSUE 1290 
1060 ONCDGOTO1260.1070.. 1180.1180 
1070 PL= 1 •• HP= 1 : T6=-10000 ; W= 1 
1080 1=6 

1090 I FCT CI ;• -7+1 = I NT ( CT ( 1) -7+1 > /13 > i* 13THENCT= I : GO 
SIJB1290: GOTO 1080 
1100 I = I-1:1FI>0THEN1090 
1110 GOSIJB1510:CT=1 

1120 POKEV IC. C0+40*CT : GOSUE 1290 : ONCDGCiTO 1140.1130. 

1130^ l'^'80 

1130 IFCfi <1)>T6THENT6=Cfi(1>'T7=Cfi(2 >-Cfi(1> 

1140 HP=HP+1:IFHP<7THENCT=HP:GOSUE1520 :GOTOl120 
1150 W=U+1 : IFU=2THENHP=1 :CT=CP:PL=2:GOSUE1213 :GOSU 
B1290:PL=1:GOTOl110 

1160 GOSUE 1520 : I FT7>SC-1 NT 2*RNri < 4 > > THEN3C=T7 : PT=CP 
1170 GOTO1260 
1180 GOSUE1240 

1190 I FCFI < 2 ) -CR ( 1 ) >SCTHENSC=Cfì C 2 > -CFl ( 1 > : PT=CP 
1200 GOTO1260 

1210 FOR I = 1T06 : CT CI > =PT •: I : CT ( I +6 :• =PT CI +7 ;• : NENT I 
1220 CR<:i)=PT<KLa:0 :CR<;2>=PT<KL<2>) 

1230 RETURN 

1240 CR ( 1 =CR < 1 > +CT <1 ) +CT < 2 > +CT C 3 ) +CT 4 > +CT < 5 > +CT 


1250 CR( 2 ) =CR ■: 2 > +CT C 7 ) +CT < 8 ) +CT C 9 +CT < 10 ) +CT C11 ) +C 
T<:i2> : RETURN 
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1260 
1270 
1280 
1290 
1300 
1310 
1320 
1320 
1340 
1350 
1360 
1370 

1330 

1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 


CP=:CP4 l : PL^::2 : 1 PCP C J 3THE:N 1850 
f?ET!JRP 

GOSUB1240:GOTO1130 
I FOT ( CT > ==0THEEiCD“ 1 : RETURN 
NP=CT CT : CT < CT ) ^0 : Cri“2 
CT^1+CT:IFCT=7THEN1440 
IFCT=13THEN1490 
ct(ct>=ctcct:h-i 

NP:=:NP-1 : IFNP>0THEN1310 
I FCT<7flNIìPL^ 1TNEN140G 
I FCT>6RNDPL:=2THEN 1400 

IFCT■: 1 ) +CT<2 > +CT C3> fCT (4 > +CT<5) +07-l6>^OTHENCD 
=4 : RETURN 

I FCT 7 ) +CT ( 8 > +CT 9 > +CT (10 > +CT < 11 ) +CT ( 12 > =0THE 

NCD==4 : RETURN 

RETURN 

I FCT •; 13-CT ;• =0ORCT < CT ) > 1THENRETURN 

Cfi < PL > =Cfì PL ) +1+CT <; 13-CT > 

CT':CT>=0:CTa3-CT>=0:CT=13-CT 

GOTO1370 

IFPL=2THEN1330 

NP=NP-1 : CR < PL =CR ( PL > +1 

IFNP==0THENCri=^3 : GOTO 1370 

IFCT=7THEN1330 

CT=1: GOTO1330 

IFPL"1TRENI480 

GOTO1450 

HR< 1 >=Cfi'; 1 > : Hfì<2)=CR':2> : F0RI = 1T012 : HT':! I )==CT': I 
: NEKT : RETURN 

CR ( 1) =Hfi a ) : Cfi < 2 > =Hfl < 2 ) : POR I == 1TO12 ■ CT < !> ==HT ( I 
>:NEKT: RETURN 

NP=PT < PT > : PT •: PT > =0 : GOCUE2000 

IFNP--=0THENRETURN 

PT=PT+1 : IFPT>14THENPT=:1 

I FPT=KL 3-PL > THEN1550 

PT ( TT > =PT PT > +1 NP=NP-1 

I FPT=KL ( PL :• THENGOSUB2000 : GOTO 1600 

GOSUB2000 

IFNP>0THEN1550 

I FPT=KL ( 1 > ORPT=l<L ( 2 ) THEN 1670 

IFI NT ( PT/7 > +1OPLORPT ( PT > <> 1ORPT •; 14-PT ) =0THEN 

1670 

PT < KL C PL > > =PT <: KL C PL > > +PT ■: PT > +PT C14- PT > 
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1640 PT •: PT > =0 : GOSIJB2000 

1650 PT= 14-PT : PT < PT > =0 : GOSIJB2000 

1660 GOSUE1900 

1670 P1=0'P2=0 

1630 F0RZ=1T06 

1690 P1 =P 1+PT < Z > : P2=:P2+PT ( Z+7 > 

1700 NEXT Z 
1710 RETURN 

1800 PRI NT " SaeM!!]" ; MI ri:f C " . 16*PL-15 

:> The < TE PL :• ) r vì:pl$ c pl > 

1810 RETURN 

1350 PR INT " m" ; MI . 20i<«PL- 

19);-RETURN 

1900 SV=PT : PT=K:L < PL > : GOSUB2000 : PT=SV : RETURN 
2000 PK=0:PRINT 

2010 T=5*PT-f 1 : I FPT>7THENT=5* < 14-PT > +1 : PR I NT " 

2020 I FPT=KL ^ 1 > THENPK= 1 : T:^36 
2030 IFPT=KL < 2)THENPK>1 :T=1 
2040 I FPKThENPR I NT " WcMSl!!]" 

2050 IFPT>0 FlNIiPT-cTTHEN PRINT‘';?l!!l5MaJ" 

2060 P$=MID$(STRÌ';:PT(PT>>.2;'aFPT(PT>=0 THEN P$=" ^ 

/ il 


2070 

2090 

2100 

2110 

2120 

2130 

2140 


2150 

2160 



IFLEN <: P$ > <:>3THENP$= " " " +P$ ■ IF LEN ( Pt ') 03 THEN 

P3:=:P$+" -• " 

PH=3:PV=2:IF PK THEN PV-S 

pu$=Miri$';; "TrrTTTTriMi". 10 -Pv.. ph+pv;- : pd$=left 
$(. ''MPMSleftlBM!!»!!’'1 +pv:j 

PR I NT TFIB a > ; : P2=0 : PP==PT ( PT ^ PM=PHitiPV ^ I FPP>3i*i 
PRTHENPP-Si+iPM 

IF PP>8 THEN PRINT "a'in";:PP=PP~8:GOSUE 2160 
H30T0 2120 

IF PP>0THENPR I. NT MI [ 1 $ " lL.U!U«i«5ra~:r3 ' " . 2*PP 

-1.2> ; "in"; :GOSIJB 2160 

IF PH>0 THEN PRINT "if'-in" ; : GOSUE 2160: GOTO 21 
40 

PRINT PU$;"1"; Pi;" W' ■return 

PN=PM-1 :P2=P2+1 : IF P2>^N-V THEN PRINT Pri;l:;:p2= 

0:PH==PH-1 

RETURN 

SE=^ 1 3m4 ■ SP^^^CRT •! 1016 : R0=^ 109 : C0= 15 
FOR OSE TO SE463:P0KE I..0:NENT 
POKE SE. 3 : Pa!<ESE+1255 : P0l<ESE+2.. 254 
POKE SE+43.3 : P0l<ESB+49.255 : POKESE+50.. 254 
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2230 

2240 

2250 


2260 


2270 

2300 

2305 

2310 

2320 

OOOc; 

CL%r'£.0 

2330 

2340 

2350 

2360 

2370 


2390 
3500 
3510 
3520 
3530 

3540 

3550 

3560 

3570 

3530 

3590 

3600 

3610 

3620 

4000 

4010 

4030 

4040 

4100 

4110 

4120 
4130 


FORI = 1TO15 : fì=SE+3i^ I : POKER.. 2 : POKEfì+2.2 : HEXT 
POKE SP.13:P0KE SP+1.13 

POKEVIC.C0+40:POKE VIC+1.R0+48:POKEVIC+2.C0+4 
0:POKE VIC+3.R0 

POKE VIC+23.3 : POKE VIC+29. 3 •• POKE VIC+16.0 : POK 
E VIC+27.0 

POKEV IC+39.11 : POKE VIC+40.. 11 : RETURN 
V=VIC+2ì*':PL-1 > 

PT^OPCPL) ••CL=11 :TM=0 
POKE 'vM:0+405kPT 

IFTI >TMTHENCL= 12--CL : POKEV I C:+38+PL. CL : TM=T 1 + 15 
GETQ$: IFa$="i3"THEHPT=~l : RETURN 
jri=PEEK JS > flND31 : JE= C JD< 16 > : JD=JERNIi 15 
IFJD=15RNDJETHEN2390 


IFCJDfiNri4>=0THENPT=PT-l : IFPT<;iTHENPT=6 
IF';:jriRNIi8>=0THENPT=PT+l : IFPT>6THENPT=1 
IF < JDflND12 > <>12THENTM=0:CL=11 :G0T02310 
GOTO 2320 

OP <PL>=PT: POKEV Ii:;+3S+PL.. 1 : RETURN 
NO=0 

TM=0 : SW= 1 : PRI NT " al" PR^ " ? ' SIS I ^ •- NOT' 

IF TICTM THEN 3550 

PR INTTRE C LEN < PR$ > +2+N0#4 >. M111$ ( " aCO". SW > 1 > ; MID 
$<:"SI-N0- ".3i<«N0+1.3>j "T’ 

SW=3-SU:TM=TI+15 

JD=PEEK < JS > RND31 : JE= •: JE< 16 > : JD=JDRND15 
IF JE RND JD=15 THEN 3600 
IFCJE RND 8>=0 RND NO=0 THEN NO=l:GOTO 3510 
IFCJD RND 4>=0 RND N0==1 THEN NO=0:GOTO 3510 
GOTO 3520 

PR I NTTRE C LEN < PR$ > +2+N0*4 " T ; MI D$ C " SI ^ NO '' " . 3 

*N0+1.3::' ; "71" : VN=CNO=0::' 

JE=PEEK':: JS)RND16 : IFJB=0THEN3610 
RETURN 

PR I NT " TltìaQURNTE ■■ PIETRE -■ PER ■- BUCfì -• ? -• SKfl" 

FOR 1=1 TO 15 

PR I NT STR$ ( I ) ; : NE>::T : PR I NT " H" 

C=1: TM=0 

T=NSH<2-2~ < NS>9 > * C NS~ 10 ) 

IF TI>TM THEN PRINT TREa.'*J riID$C".C. 1 >j STR 
$ (. NS ) .i " T30" : c=3-i:; : Tri=T I +15 

JD=PEEK JS > RND31 : JE= ( JD< 16 ) ^ JD=JDRND 15 : OS==NS 
IF CJD RND S:;'=0 RND NS-215 THEN NS=NS+1 
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4140 

4150 


4160 

4170 

60000 

60010 

60020 

60030 

60070 


60090 

60100 

60110 

60120 

60130 


60140 
61000 

61010 

62000 


62010 

62020 

62030 

62040 

62045 

62050 

62060 

62070 

62080 

62090 


62100 

62110 

62120 


IF CJD FlWD 4)=0 fìHIi HS>1 THEH HS=:NS-1 

IF OSONS THEH FRI NT TfìBa> ; STR^COS) ; "H" : Tri=0 

:C=l:GClTi:i 4100 

IF JE=0 THEH 4100 

PRIHT THE T ) j " S" ; STR$ C HS > : RETURH 

I H$= " '■ " : 2T=T I : 2C=2 : 2D$=CHR$ < 20 > 

GET2$:IF2$C>""THEH60070 

I F2T<=T ITHEHPRIHTMI M ( " - W . 2C. 1 > J " II" ; : 2C=3-2C 

:2T=TI+15 

GOTO60010 

2=fìSC (.Zf) - 2L=LEHCIH$) : IF<ZfiHE 127><32THEHPRIHT 

"••'ir; :goto60110 

IFZL>QI THEH60010 
I H$= I Hl:+Z$ : PR I HT2$ ; 20$ J Zf J 
IF2=13THEHIHf=MIDfCIHf.2):PRIHTCRf; :RETURH 
I F2=20flHD2L> 1 THEH I Hf=LEFTf < I Hf. 2L-1 > : PR I HT " II" 
j :GOTO60010 

I F2= 141 THEHZf=C;HRf < -20* ( 2L> 1 > > : FORZ^ZTOZL : PR I 

HTZf;:HEXT:GOTO60000 

GOTO60010 

CRT= 1024 : VI C=53248 : WD=40 : CRf=CHR$ C13 > : S111=542 
72 :JS=56320:CM=55296 
QL=214 •• Q 1=254 : RETURH 

G0SUB61000 :POKEVIC+32.0 :POKEVI C+33 .0 :LH=LEH(P 
Gf> :TE=<40-LH;:-/2 

PR I HT " rifiMPiBina" tre < te > lEFTf ^ •- -• •- -■ -■ -• '■ -■ " •- ■■ 

LH) 

PR I HT " a" TRE ■: TE ) PGf ^ PR I HT " S" TRE < TB ) LEFTf < " •- " - ■■ 

••• Il I j..j 

PR I HT " m" TRE < 40~LEH C RUf > > /2 > RUf 
MSf = " BRTTlRETURH '' PER IH121RRE " 

IF JFTHEHMSf = " PREM I •-1L '' JO VSTICK ^ PER ^ IH121RRE " 
TE=<<40-LEHa'1Sf>>/2) 

PRI HT " Wfittak" TRE C TE > MSf : PR I HT " MBieDfflflClBk.- ' ■- ■- " •- ' 

-■ C > •' 1983 •• THE •- CODE ' WORKS " 

GETIHf: IFIHf<>""THEH62120 

IF < PEEK <: J3 > RHD16 =0THEH62120 

PR I HT " TRE < TE > LEFTf K+1 > L 

EFT$c:MSf..Q> 

Q=Q+1 : IFQ>LEHaiSf )THEHQ=0 : K=l-K 
GOTO62070 

CLR:PRIHT"na":G0SUB61000 : GOTO100 





Bonzo 



Bonzo è una delle tanti versioni di un gioco conosciuto da tutti e vecchis¬ 
simo: il gioco dell’oca. Si tratta di arrivare per primi in fondo ad un per¬ 
corso, aH’interno del quale esistono possibilità di avanzamento e di retro- 
cessione. Potete giocare con il C-64, con un’altra persona, oppure con tut¬ 
ti e due; quando è il vostro turno, dovete fermare il dado che continua a 
girare battendo RETURN, per sapere di quante caselle potete muovervi. 
Lungo il percorso troverete delle scale — che vi faranno avanzare ad un 
piano superiore — e degli scivoli — che vi faranno retrocedere ai piani 
inferiori. Come tanti altri giochi, è solo questione di fortuna! 


- CRRfiTTERI SPECIftLI UTILIZZATI 

SIMBOLI GRAFICI 
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COMM 

+ 

COMANDI & COLORI 






1 RVS OH 

■ 
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P0$= " •■• E •' 0 -■ H ' 2 '■ 0 ••• " : RIJ$= " HI " RfìHDfìLL •- LOCKWOOD " 

REM COPVRIGHT O:;:' 1983 THE CODE WORKS 
REM BOX 6905. SfìHTFl BfìRBfìRfì. Cfi 93160 


REM flS OF 8/16/33 GF 

REM EDIZIONE ITfìLIfìNfì:EDIGEO 1934 

GOTO 62000 

DIM0':9).lo:-.L$':;0;:- :QI = 15 

FORI =0TO28 : POKESID+1.0 : NE>=:T •• POKESID+6.240 : POK 
ESID+4.17 

PRI NT " C E Dfl flSPETTPlRE '' UN - HTTIMO. " •• PRI NT " iflRB 
BIRTE-PfìZIENZR." 

I=RNDC-Ti:' 

POKESID+24.15:SN=1E20:FQ=SID+1 


DiMfì':3).p-;;9i>.zz-:9i>.N';3).S';3>.w-:3>.X':3;> 


M<n=209:M':2:-=218:M 


144 


Xa>=0:X';2>=WD:X':3>=WD+l :W(1)=71 :W-::2>=45:W(:3:) 


=30 

FORI=0TO12 

FORJ=0TO6STEP2 : P-: J5fil3+I + 1 >=CRT+WDi*El9+l~WD.’^3#J 
+3*1:NEXTJ 

FOR J= 1T05STEP2 : P ■: J* 13+1 +1 =CRT+WD* 19+37-UD*3* 

J-3*I:NEXTJ 

NEXTI 

VT=22 . ..... 

BL$="n'’ ^^ ^ ^ ^ 

T' 

RERDTf : I FT$0 " = ” THEN230 

F0RI=826T0848:RERDN:POKEI. ! J :NEXT 

FOR I = 1T09 : RERDL •: I > : NEXTI : 0 < 1 > =-WD : 0 •; 2 ) =-UD : 0 •: 

3>=-WD+l :0':4:)=-WD+l 

0 C 5 =-WD-1:0 ■: 6 ) =WD+1 ; 017 :• =WD+1:0 8 > =WD-1 :0 -o > 
=UD-1 

FOR I =0TO9 : RERDDf I > : NEXTI 

FOR 1 = 1 TO 9:REfiD D-: I >. LN-:'. I > : NEXT I 

PR I NT " URDfflOBDURNTE ^ a^'ERSONEl-' STRNNO GIOCRNDO? " 

:pRiNT":tì':i'0-'2O?'"; 

GOSUE60000:IFIN^=""THENIN$="1":PRINT"T J TflB<1 
0>;INf 

NP=VfìL(IN$>:IFNP<1ORNP>2THEN300 
F0RI=1T0NP 
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330 PRI NT " WCiME " BEL '• GIOCflTORE -• N ; " •' II" ; : GOSUB60 

000:Hf<I>=IN$ 

333 IF IN^="" AND NP=1 THEN N|:< D = "IJOMCi'’" : PRIHT"n 
" ; TRB < 24 > j N$ <I>: GOTO 340 

335 IFI N$= " " ThENPR I NT " )!H0 •- BI SOGNO ■■ DI '' DUE •' NON I. " : G 
OTO330 

340 NEXTI : Nf- < 3 > = "064 " 

350 PRi’NT " IF’ÒSSO GIOCRRE ' RNCH ■■ 10? " J : GOSIJE60000:1F 
LEFTt I Nf. 1 ) = " N " THEN400 

355 IFI m- ""THENPRINTTRB(17);"TSI"":FORI=1TO500:N 
EXT 

390 NP=NP+1 : H$ (. NP > = " 064 " : N C NP :• = 131 
400 11 $= " EHII'" II" : 12$ = " II-' M" 

410 ci $-" :r ■■ E 1 $=c 1 $+ " 3" •' 0 MMMV ' ' KiMr -■ " sm" : D 1 $=I 

1$+C1ì:+I2$-D1$=D1$+D1$+D1$ 

420 C2$= " ra" ; E2f=C2$+ " a-' -• laiir" " •' uiwi' •' ■' sn" ; D2$= i 
1$+C2$+I2J: : D2f =D2$+D2$+D2$ 

515 FOR I 1TO10 : E a ) =0 : NEXTI : FORJ= 1T091 : 2X ( J ) =0 : NE 
XTJ:POKEVIC+33.0 

520 PR I NT " n ": FOR J== 1T03 ’ FOR I = 1T06 : PR INTE l ■ N 

EXT:PRINTEl$JDl$j"H" 

530 FORI = 1 TOb PRINTB2$ BVtr- NEXT : PRINTE2$J112$; "T' 

:NEXTJ 

540 FORI = 1T06:PRINTE1$;E2$; :NEXT:PRINTB1$.D1$;" T’ ; 

541 FOR 1 = 1 TO 4:PRINT:PRINT •• ^ 

/■ X ••• y /■ / y y y |H ' " j 

542 NEXT;PRINT "3" 

545 POKE VIC+33.. 1 

550 POKEQL .19' PR INTC1 $ J " na-> " : PR I NT " SS" ; TRE ( 36 ) ; " 3 
560 RESTORE : 2= I NT RND C1 > > i-1 

570 IF2>1THENFORK=1T02-1 :FORJ=1T09:RERDT$:NEXTJ.K 
5S0 FORK=1T09:RERDI$ : IFI$<>""THENGOSUE1030 
535 NEXTK 

590 DRTR 1037631.2124167.. 3103462.. 6111216. 1093769 
.4025123..2057450 

600 DRTR .4032450.3064858.5131139..5083418.108866 
2.1129068.1033153 

610 DRTR 5091835.1015379.4123741.3052957.6040523. 
1098769.1113965.4074632 

620 DRTR 1033653. I06i' 334.4l0l |■'43. . 5050331. . 607200 
8.1038157.3136541.2097046 
650 : 
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710 F0RK:=1T0NP:S<K> = 1 :fì(K> = 160:POKEPa)+X';;K:-..M<l<> 
:HEKTK 

720 F0RK-=1T0HP 

730 SK=S <K> - f1K=M(K> : XK=X <K) ■ PSK=PCS!<> 

740 GOSIJB770 

750 GOSIJB910 

760 HEXTK : I3OTO720 

770 D=INT t RND U)*6) +1 :POKEQL.VT+1 

780 PRI NTTflB •: 3 ) ; " Ti a" ; •: 0 ) j " T’ : PRI NT ■' a" ; BLS- 

785 POKECRT+WD3t!23+7.. M K > ■ PR I NTTflB C 7 ) ; " :*l= " ; N^ < K > ; 

787 IF N^aC' = ’'C64" THEN PRINT - GOTO 830 

790 PRINT "'CBRTTI'RETURNa>" 

795 GETT$: IFT$0""THEN795 
800 GOSIJB880 

810 GETT$:IFT$=""THEN800 
815 IFTf=T;!" THEN 1070 

820 POKE QL. VT+2 : PR INTTRB '' 10+LEN Nt ( K > > > ; " 'H a ' ' 

/ f / / .* / / .•* / Il 

825 GOTO860 

830 Q= I NT C RND < O 10 > +3 
835 F0RJ=1T0Q 
840 GOSIJB880 
850 NEXTJ 

860 Z=D : GOSIJB890 : FORI = 1TO1000 : NEXTI 
870 RETURN 

880 2=INT(:RND<1>*10> + 1 

890 POKEQL. VT+1 : PR I NTTRB< 3 > ; " TSa" ; D$ 2 > J " T" 

900 FORI = 1TO100 :NEXTI^ RETURN 
910 POKEPSK+XK. R >' K > : FOR I = 1TOD 
920 IFSK+I>=91THEN1000 
930 fì K ) =PEEK C P ( SK+1 > +XK > 

940 POKEP SK+1 ) +XK. M C K > : POKEFQ. U < K > : FOR.J= 1 TOSO : NE 
XTJ:POKEFQ.0 

950 IFICDTHENPOKEP < SK+1)+XK.R(K > 

960 NEXTI 

970 POKEFQ. 0 : SK=S C K > +D •' S < K > =SK : PSK=P C SK > 

980 U=2X<SK):IFU=0THENRETURN 
990 GOTO1270 

1000 POKE QL. VT+1 : PR I NTTRB C 3 > ; " Ti a" ; liì- ( O " T" : PR IN 
T '* S** i BL$ 

1010 PR I NT ' TRB < 5 > ; " Ta" ; N$ < K ) ; •' •' VI NOE ! ! W" 

1040 PRINTTRB < 5);" 331OCHI'RNCORR"; 

1050 GOSUB3000 
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1060 I FLEFT$ ( I H$, 1 > <> " N " THENPRI NT "SI'’ M" : GOTQS15 
1070 PRI NT " NOa" : POKESID+1.0 : POKEVIC+33.0 : PRI NT '* DT 
■ END 

1080 V=VfiL C LEFTf U $.1> >:X=VAL < MID$ <11.2.2 > > 

1090 Z=K: : S=VflL MI Df < I $. 4.2 > > : E < Z > = VfiL < RI GHT$ U $ > 2 > 
> : Z'i >'■. s > =z 

1100 P=C:RT+ 120# ( V-1 > +3# C X- 1 > 

1110 LN=LN <: Z > : ON D C Z ) GOSUE 2000.2100.2200.. 2300.24 
00 : RETURN 
1270 0=0<U> :L=L(:iJ) 

1280 LP= 120 : HP=60 : Z=-1 : I FIJ<:=5THENLP=60 : HP= 120 : Z= 1 
1290 IV=INT C < HP-LP >/L+.5) 

1300 S1=PSK+X C K):S2=fi < K >:FORI = 1TOL 

1310 POKES1.82:81=81 +0 : S2=PEEK (8 1 ): POKES1. M < K) 

1320 FORJ=LPTOLP+IVSTEPZ:POKEFQ.J:NEXT:LP=LP+IV 
1330 NEXTI 
1340 POKEFQ.0 

1350 SK=E < U > 8 <; K > =SK : fi K > =82 
1360 RETURN 

1370 DfìTfi=.162.4.160.0.132.251.134.252.177.251.73. 
128.145.251.200 

1390 DfiTfi208.247.232.224.8.208.240.96.3.6.3.6.3.3. 

1430 lifiTfi ^ " 

1440 DfiTfi " '■ " !■■[«■' • •' IIIRJ'' ••• " 

1450 DfìTfi " • " BURI■■■ •' SUR]'-' •' • " 

1460 DfiTfi " t " IIIRlt ■ ’■ 

1470 DfiTfi " • •- •■■■BQ - ^ • " 

1480 DfiTfi " • «IIIRJ-' • ^ IIIRM ' tt " 

1490 DfiTfi " «••IIIBa-' IIIRlItt " 

1500 DfiTfi " •' " •IIIRJ-' •' IIIRlt ■' " 

1510 DfiTfi " • ■' l■■R3■•■ • ■■■R3" •- • " 

1520 DfiTfi " t «IIIRlt •llIf.Slt t " 

1600 DATA 2.4. 2.7. 3.2. 3.5. 1.2. 4.2. 4.5. 5.2. 


2000 

2010 

2020 

2030 

2040 

2100 

2110 

2120 


P=P+40:POKE P+2.205 

FOR Q=1 TO LN:P=P+41 

POKE P.205:POKE P+1.206:POKE p+2.205 

NEXT Q 

POKE P+41.205:RETURN 
P=P+40 

FOR Q=1 TO LN 

POKER.234 :POKE P+1.192 :POKE P+2.244 
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P=P+40:HEXT Q 
RETIJRH 

P=P+40:POKE P.206 
POR Q=1 TO LN:P=P+39 
POKE P.206:POKE P+1.205:POKE P+2.206 
NEXT Q 

POKE P+39+2.. 206: RETIJRH 
PsP+81 

POR Q=1 TO LH 

POKE P.223-POKE P+1.95 :P=P+41 
HEXT Q 

POKE P. 223: RETIJRH 
P=P+80 

POR Q=1 TO LH 

POKE PA05-POKE P+1.233: P=P+39 
HEXT Q 

POKE P+1.233: RETIJRH 
2Q=1:ZT=0 

GET I Hf : IP I HPO- " " THEH PRIHT " ? •- " ; : RETURH 
IP TICZT THEH 3010 

PR I HT MI Dì: ( " ? '• % ZQ. n ; " SI" ; : ZQ=3“ZQ : ZT=T I +15 : G 
OTO 3010 

IHÌ=" '■ " : ZT=TI : ZC=2 : ZDì=CHRì:<20) 

GETZ$ : IPZÌO" "THEH60070 

IPZT<=TITHEHPRIHTriIDÌ< " . ZC. 1 > ; "II" ; : ZC=3-ZC 

:ZT=TI+15 

GOTO60010 

Z=fi3C ( Zi ) : ZL=LEH < I Hi > : IP < ZRHD127 > <;32THEHPR I HT 
"'II"; :i3OTO60110 
IPZL>QI THEH60010 
IHi=IHi+Zi:PRIHTZi;ZDi; Zi; 

I PZ= 13THEHI Hi=ri I Di a Hi. 2 ) : PR I HTCRi ; : RETURH 
IPZ=20flHDZL>lTHEHIHÌ=LEPTÌ<IHÌ.ZL- 1>:PRIHT"H" 
;:GOTO60010 

IPZ=141THEHZÌ=CHRÌ<-20* < ZL>1> >:P0RZ=2T02L:PRI 

HTZi;:HEXT:GOTO60000 

GOTO60010 

CRT=1024 : VI0=53248 : UD=40 : CRÌ=CHRÌ(: 13> : SID=542 
72 : JS=56320 : Cl'1=55296 
01=214:QI=254:RETURH 

G0SUE61000 : POKEVIC+32.0 : POKEV10+33.0 : LH=LEH P 
Gi> :TB=<40-LHV2 



C'i Cì CTì CT'i ij'i >71 CT'i CTl CT'i CTi iJi 

ft ♦. ft *. r. N r. s fk •. r. % r. *. r. ♦. r, \ fk ^ r. ♦. 
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62010 PRI NT " tpe tb > leftì c •' ■- •- •' ■' •- " •• •• •" •' •- •' -■ -■ 

'■ ■■ •' 1 LH> 

62020 PR IHT " a" TRE < TB > PG$ •' PR I NT " 3" TRE < TE ) LEFTt C '* ' ' ' 

030 PR I NT " WSI" TRE < C 40-lÉn RIJ$ > > /2 > fìlJ$ 

040 m$= " ERTTI ■ RETURN •- PER •- INIZI RRE " 

045 I FJFTHENMS$= " PREM I ' IL " JOVSTICK •- PER ■-1NIZI RRE " 
050 TE=(:<40-LEN(MS$>)/2> 

060 PR I NT " WtìBWk." TRE ( TE > MS$ : PR I NT " W?MaiBl!!li!li. " ■- 
( C> 1983 THE " CODE " WORKS " 

070 GETI N$ : IFI N$<> '* " THEN62120 
080 IF •: PEEK < JS > RND16 > =0THEN62120 
090 PRINT"TRE(TELEFT$ ( " mj '.. K+1 >L 
EFTf<MS^u:0 

100 Q=Q+1 :1FQ>LEN C M3$ > THENQ=0:K=1-K 
110 GOTO62070 

120 CLR : PR I NT " nai" : G0SIJB61000 : GOTO 100 
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Bjack 
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<S> 


Volete prepararvi a sbancare il Casinò di Montecarlo? Ecco qua quel che 
fa per voi, un autentico banco di Blackjack, con uno dei più famosi crou¬ 
pier d’Europa! 

Vi ricordiamo brevemente le regole del gioco: prima di ricevere le carte 
occorre fare la puntata, dopo di che il banco distribuisce due carte sco¬ 
perte a voi e due a se stesso, una coperta e una scoperta. Voi potete chie¬ 
dere altre carte, per cercare di raggiungere 21 punti: se li superate sbal¬ 
late e il banco vince; in caso contrario il banco inizia a giocare scoprendo 
la sua seconda carta e chiedendo altre carte fino ad ottenere almeno 17 
punti o ad avere cinque carte sul tavolo. Se il banco non sballa (superan¬ 
do il 21), vince chi ha il punteggio più alto. Se il punteggio è pari voi ria¬ 
vrete indietro la puntata, se vincete, riceverete una somma pari al doppio 
della puntata stessa. 

Le carte dal 2 al 10 valgono esattamente quanto indicato, le figure valgo¬ 
no sempre 10 e gli assi possono contare per 1 o per 11: il C-64 presuppo¬ 
ne che essi valgano 11 finché la somma delle carte non superi 21, nel 
qual caso pone il valore degli assi a 1. Se le vostre prime due carte sono 
un asso e una figura — ovvero Blackjack — vincete subito una volta e 
mezzo la puntata; se il banco ha Blackjack vince. 

Quando la carta scoperta del banco è un asso (e quindi un possibile 
Blackjack nascosto), vi verrà chiesto se volete l’assicurazione contro il 
Blackjack del banco; questa assicurazione è in realtà una scommessa sul 
fatto che il banco possa avere Blackjack o meno: se lo ha, voi perdete la 
mano ma la perdita viene coperta dall’assicurazione (per cui risulta che 
non perdete niente), in caso contrario perdete i soldi dell’assicurazione 
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stessa — che costa la metà della puntata — e poi il gioco continua nor¬ 
malmente. 

Se la somma delle vostre prime due carte è 10 o 11, vi verrà chiesto se 
volete raddoppiare la posta, domanda alla quale dovete rispondere con S 
o N; nel primo caso vi viene data automaticamente una e una sola carta. 
Il gioco prosegue fino aH’esaurimento del vostro capitale o fino a quando 
non decidete di abbandonare il tavolo, puntando zero. 
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SIMBOLI GRRFICI 

♦ SHIFT Z 
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SHIFT fi 

« 
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^ SHIFT X 

— 
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SHIFT K 
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^ COMM + 

COMRNDI & COLORI 

a RVS ON 
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RVS OFF 
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HOME 
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CRSR-D 
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CRSR-U 
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CRSR-R 
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a CTRL PUR 

II 

COMM GRN 

s 

COMM RED 


1 PGt= B J R -• C '■ K •• " : fllJ$= " n I .JOHN -■ NEL I SSfì. - .JR. " 

4 : 

5 REM COPYRIGHT 1983 THE CODE WORKS 

6 REM BOX 6905. SRHTR BRRERRfi.. CR 93160 

10 REM RS OF 8/19/83 GF 

.50 REM EDIZIONE ITRLIRNR : EDIGEO 1984 

90 GOTO 62000 

100 DIMX ( 13 >. V ( 13 >. D 52 ). Bt i 5 ;■.. R$ C14 ) 

102 POKEVI C+32.12: POKE VIC+33.11 
110 FORI=1T05:RERDB#(I):NEXTI 
115 DRTfì"S#fc.". "■♦Ifc.". " 

120 FORI = 1TO14 :RERDR$(1>:NEXTI 
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rifìTflfì,2..3.4.5.6.7.8.9.10. J.Q.K>? 

BL$=" ^ ^ •• ••• ^ ^ ^ ^.- ^ .-.- / ^.- ^ /.- /.. 

nm- " 

PR$- " IKìlJfìHT I ■' SOLDI •' VUO !?•'": GOTO 155 
PR$= " IQUflHT I SOLD I " VUO I fiHCORFi? " 

IN=500 : GOSIJE9600 : E2=IN : IFE2 C. 25THEN9100 

E1=E1+B2 

IFE>0THEN250 

LE= I NT < B1 /10): PR$= " PRI fIR PUHTRTfì? " : G0T023 
B1 =Bl+B : PRINTDNt j "WtìM" ; M111$< "PEREIVINC1". - 
B>0)+1.5); 

PR I NT " " $ " ; MI D$ < STR$ ( B ). 2 ) ; " ; ' ORR ' HRI •- $ " ; MI D$ ( 
STR$<B1).2);".M 

FORJ= 1TO1500 : NE:«:T : I FB K . 01THEN9000 
PR$="LR 'PUNTRTR'ERR"+STR$<LB) + " ; •'PUHTRTR? • " 
PRINT DN$j"TT' 

IN=LB:GOSUB9600:B=IN 
IFI N$= " '• RNDLE=0THEN230 
IFE<:.25THEN9100 
IFB<:=sBlTHEN300 

PR I NT " nKt-^ON •' PUÒ I PIJNTRRE " ; E" II. 

PRINT")flHRI''SOLO-";El 

PR I NT " IPREND T'DE I '' SOLD I ! W" : GOTO 150 

LB=E : PRINT'TJ^UNTRTR' " ; B 

F1=0:F2=0 

F0RJ=1T052 

LETDa) = l 

NEXTJ 

X(13)=14 

W(.Ì3>~5 

REM 

GOSUB1000 

XCIXI 

V(1>=C2 

IFC1>10THENC1=10 

ri=ci 

GOSUB1000 

XC7)=C1 

VC7)=C2 

IFC1>10THENC1=10 

N=C1 

GOSUB1000 

X(2)=C1 


© ili 
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560 V<2>=C2 

561 IFC1>10THENC1=10 
563 M=ri+Cl 

565 GOSUB1000 
570 X(:8>=C1 

575 V':;8:''=C2 

576 IFC:l>10THEHCl = 10 

577 H=H+C1 

580 PRIHT "HI-" 

600 J=7:P=1 
605 GOSIJB2000 
610 J=13:P=2 
615 GOSUB2000 

620 PRIHT " : PRI NT " lIBftNCO 

670 PRIMI "fil-" 

700 J=:rP^-a :GOSIJB2000 
720 J=2:P=2:GOSIJB2000 
730 PR I HT ’• WBMiQWtì" : PR I HT " imj 
735 111=0 

740 IFK a > = 1ORK < 2 > = 1THEHM1 = 1 
750 H1=0 

755 GOSUB2200:F1=1 

760 IFK(7 > = 1ORX(8 > = 1THEHH1 = 1 

770 I9=0:F1=1 

775 REM 

780 I FK ( 7 > = 1THEHGO3IJB8000 
790 IFH=11fiHDH1=1THEH3000 
800 IFI9-=0THEH810 

805 PR I HJIsm J " KF'ERD I •- $ " ; MI Df ■: STR^ < E/2 >. 2 ) ; " DELL •- 
fiSSICURRZIOHE.":Bl=El-B/2 
810 J=2 

815 IFM=11RHDM1=1THEH5500 

817 I FM= 10ORM= 11THEHGOSIJB7000 : IFVHTHEH5000 

820 IFM>20THEH5000 

830 I Fri= 11 RHDM 1 = 1THEH5000 

840 PRINTDH^ 

850 PR I HT ’• mir./UO I '• UHR •- CRRTfì? •- - '■ - - - ^ ; 

860 VH=1:GOSUB9500 
870 IFV! rrHEHGOSIJE4000 : GOTO820 
880 GOTO5000 
890 GOTO840 
999 GOTO9000 
1000 C= I HT <: RHD ( 1 ) ^52+1 > 
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1010 
1015 
1020 
1030 
1032 
1035 
1099 
1 900 
2000 
2020 
2030 
2050 


2120 

2125 

2130 

2150 

2155 

2160 

2190 

2200 

2210 

2220 

2230 

2300 

2310 

2320 

2330 

2340 

2990 

3000 

3040 

3042 

3045 

3050 

3060 

3100 

3120 

3121 

3130 

3131 

4000 


IFD'::C><>1THEH1000 

ri-;: 0=0 

Cl=IHTCC/4> 

C2=C-C1*4 

C1=C1+1 

IFC2<1THENC2=C2+4:C1=C1-1 
RETURH 

PRIHT"5»J" :REri CfllilJTfl IH ... 

REM 

PRIHTTfìB<Pi(«7-7> ; 

PRINT"fc..-- 

PRI NT " jBii I m I m I ;pj! i iw i ikf iimihiii-iii ‘in i in i in i 
munì"; 

PRINTRfCXtJ));"i«rJ 
I FK (. J ) = 10THEHPRI NT " II" ; 

PRINTB$CVa>>; 

PR I NT " IKIS" ; C V < J > > ; " lltì" j 
IFLEN C fit < K C J > > > 1THENPRI NT " II" J 
PR I NTRf ( K J > > ; " TTTTT' ; 

IFF1=0THENRETURN 

REM 

M2=M 

IFM1=1RNDMC12THENM2=M+10 

PR I NT " " ; M2 

REM 

IFF2=0THENRETURN 

N2=N 

IFN1=1RNDN<12THENN2=N+10 

PR I NT " = " ; N2 

RETURN 

P=2:J=8 

GOSUB1900 

IFI9=1THEN3100 

IFM*11RNDM1=1THEN5600 

PR INTDNS ; " WIL '' BRNCO -■ HR ' BLRCKJRCK 

B=-B:GOTO200 

H=:0:1 Fri= 11 fìNDM 1 = 1THEN5620 

PR INTDN^ ; " WIL '■ BRNCO '' HR •• BLRCKJRCK " 

PR I NT " Lfl " PERDITR - E ■■ COPERTR ' DRLL •- fiSS ICURRZI ONE " 
GOTO210 • 

PR I NT " LR ^ PERD I TR '' E ^ COPERTR - DRLL ' RSSI CURRZ ION 
E" 

J=J+1 
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4005 IFJ>6THEH6000 
4010 GOSIJB1000 
4015 IFC1>10THEHC1=10 
4017 IFC1=1THEHM1=1 
4020 «=^1+01 

4030 i 

4040 P=J 

4060 X<J>=C1 

4070 VU)=C2 

4090 GOSUB2000 

4400 RETURN 

5000 J=8:P=2:F2=1 

5020 GOSUB1900 

5030 IFri>21THEH5400 

5090 J=J+1 

5100 IFNM6THEN5600 

51101FN<12flNDN1=1RNDN+10>16THEN5600 

5120 GOSIJB1000 

5130 X(J)=C1 

5140 V<J)=C2 

5150 IFC1>10THENC1=10 

5155 IFC1=1THENH1=1 

5160 H=H+C1 

5170 P=J-6 

5180 GOSIJB1900 


5186 FORI=1TO400:NEXT 


5199 GOTO5090 
5400 PRINTDN# 

5410 

5420 B=-E : GCITO200 
5500 J=S:P=2 


'SBRLLflTO^ifif " 


5530 GOSIJB1900 
5560 PRINTDN^ 

5570 prinT" 

5580 B=Bi««1.5:GOTO200 


•'BLfiCKJfiCK! ! " 


5600 I FtK 12THENIFM1 = 1 THENr'l=M+10 
56101FN<12THEHIFH1=1THENN=N+10 
5620 PRINTDN# 

5625 IFN>21THEN5800 
5630 IFM>HTHEN5700 


5640 I Ff1<NTHENE=-B : GOTO5700 
5650 PRINT"^ ^^ ^ ^ ^ ^ ^ ' PflRITfi'- ^^ " 


5660 PRI NT " JPJ? I MfiN I R •' $ " 


riID$CSTR$<Bl>.2); " 


a" 
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5699 GOTO210 

5700 PRI NTDN$ : PRI HTBL$ : PRI NT " HI L ■- BANCO •' HA " J N ; " II; ' T 
ij ' HAr';r-i; "il. 

5710 GOTO200 

5800 PR INTDN^ j " mm IL BANCO ' SBALLA#?^# " : GOTO200 
6000 PR INTDN$ : PR I NT"MENO " D I"21" PONT I - CON " 6 " CARTE ' = " 
VINCITA! 


6020 

7000 

7010 

7020 

7100 

7110 

7120 

7130 

8000 

8010 

8020 

9000 

9005 

9006 
9010 
9020 
9037 
9040 
9100 
9120 
9400 
9590 
9510 
9520 
9530 
9540 
9545 
9550 

9569 

9570 
9580 
9600 

9605 

9606 
9610 


GOTO200 

PRINTDN^ 

PR I NT " mS’v'LIO I " RADDOPPI ARE?!" " ; 

GOSUB9400 : IFVN=0THENRETIJRN 

PRINT"Sa=-IJNTRTA'";B 

GOSUB4000 

VN=1: RETURN 

PR INTDNÌ ; " n#/UO I ••• L '■ ASSICURAZI ONE?l" " ; 

GOSIJB9400 •• IF VNTHEN I9^= 1 

RETURN 

PRINTDN^ 

PR I NT " SE I '• AL VERDE. -• •- •- •- •- " ' •- ^ " '' ■■ ' •- ' ' ■■ •' •- -• " ' " 

PR I NT " •' ••• ••• •- " ■-- ■' " ■' ••• ■- '■ •' •' -■ '■ •' ••• ■' '■ ^ •' ••• •' '■ " 

PRINT"VUOI"GIOCARE'D T'NUOVO?-"; :GOSUB60000 

IFLEFT$ <IN$.1> = "N"THEN9100 

B=0 

PRINT'LT :GOTO130 

PRINT'LT 

END 

VN=0 

ZC=2 ZM=0 

GETZ$: IFZ$0""THEN9545 
IFTKZMTHEN9510 

PR INTNI D$ " ' • ". ZC. 1 ) ; " II" ; : ZC=3-ZC: 

ZM=TI+30:GOTO9510 

IF2$="Q"THEN9100 

IFZ$<>"S"ANDZfO"N"ANDZ$<>CR$THEN9520 
IFZ$<>CR$THENVN=Z$="S" 

PR INTMI D$ <; " SN ". 2+ C VNO0 >. 1 ) 

RETURN 

PRINTBL:J:PRINT"nil"; 

CRi:="" :PRINTPR$; : GOSUB60000 : IFIN$=" "THENZ=IN : 

PRINT"II"; IN:GOTO9640 

IFIN$="Q"THEN9100 

PR I NT FORZ= 1TOLEN < I Nf > : Z$=M I Dt ( I N$ > Z. 1 > 
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9620 

9630 

9635 

9640 

9650 

9660 

9670 

9680 

60000 

60010 

60020 

60030 

60070 


60090 

60100 

60110 

60120 


60130 

60140 

61000 

61010 

62000 


62010 


62020 


6ei030 

62040 

62045 

62050 

62060 

62070 

62080 

62090 


I FZ$< "0"ORZf>"9" THEH9650 
NEXT2:Z=VI=lL<IHi:> 

IF 2/10<>INTCZ/10> THEN PRIMI "WSLIM'MULI IRLO' 
DI ^ 10. PER •' FAVORE. " ; : GOTO 9660 
CRt-CHR$C 13) : IM:=Z : RETURN 
PRIMT"Mi#v|IEHTEIir J Z$J " ' PER"FAVORE" 

PRIHTMIDf C EL$.POS C 0) +1>:FORZ=1TO2000:NEXTZ 

PRIMI"T' ; ELf : PRIMT"TIT' J 

GOTO9600 

IN3:=" '• " : ZT=TI : ZC=2 : ZD$=CHR$<20) 

GETZ$ IFZ^<>""THEN60070 

IFZT<=TITHENPRIMTMID$< " '7^", ZC. 1 ) ; " 11 " ; : ZC=3-ZC 

:ZT=TI+15 

GOTO60010 

Z=ASC<Z$) :ZL=LEM(IM^) : IF<ZAMD127)<:32THEMPRIMT 
"•'ir; :GOTO60110 
IFZL>QI THEM60010 
I M$= I m+z$ ■■ PR I MTZì: ; ZD^ ; Z$ ; 

IFZ=13THEMIN$=MIDt(I H$. 2)■ PRINTCRt; : RETURN 
IFZ=20ANDZL>1THEMIM$=LEFT$( IM^. ZL-1 ) : PRIMI "II" 
;:GOTO60010 

I FZ= 141 THEMZ$=CHRì: C -Zm < ZL> 1 ) ) : F0RZ=2T0ZL : PR I 

NTZ$; MIEXT:GOTO60000 

GOTO60010 

CRT=1024 : VI0=53248 : WD=40 : CR^=CHR$(: 13) : SID=542 
72 : .JS=56320 : CM=55296 
QL=214:QI=254:RETURN 

GOSUE61000:POKEVIC+32.0 :POKEVIC+33.0 :LN=LEM<P 
G$)'TE=<40-LM)/2 

PR I MT " t ae c te ) lefts < " " •' •' •' •- " •' •' " •' •' •' ■' " 

LM) 

PR I MT " a" TAE ( TE ) PGS ■ PR I MT " a" TAE < TE ) LEFT$ ( " ' ' •" ' 

y , y y y y y , y , 

PR I NT " UBI" T AE < C 40-LEM fiUt ) ) /2 ) AU$ 

MSf="EATTI"RETURN"PER"IMIZIARE" 

IF JFTHENf1Si:= " PREMI " IL •' JOVSTICK ' PER "INIZI ARE " 
TE= < < 40-LEN < nst))/2) 

PR I MT " W«m." TRE C TE ) MS$ : PR I MT " WeMKBOBlBk " " " " " " " 
"< C)"1983"THE"CODE"WORKS" 

GETI M$ : IFI m<y " " THEM62120 

IF < PEEK US)AMD16)=0THEM62120 

PR I NT " TRE C TE ) LEFT$ < " . K+ 1 ) L 

EFTtCMS^.Q) 
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62100 Q=Q+1:1FQ>LEH < MSÌ > THEHQ=0:K"1 -K 
62110 001062070 

62 1 20 CLR : PRI NT " na" : G0SIJE6 1 000 : GOTO 1 00 





x\ 



È scoppiato un incendio in città, i pompieri sono stati avvertiti e voi 
— pilota dell’elicottero cisterna — avete tre minuti per spegnerlo. L’eli¬ 
cottero può portare mille litri d’acqua, con i quali potete fare un buon la¬ 
voro se agite in fretta e con cura; più a lungo le fiamme rimangono acce¬ 
se infatti e più vasto diventerà l’incendio. 

Quando terminate l’acqua a disposizione, siete costretti a tornare alla vo¬ 
stra stazione di rifornimento (il primo edificio a destra) per riempire il 
serbatoio. Naturalmente l’incendio continuerà a dilagare, per cui dovete 
essere molto rapidi nelle manovre. 

Usate la leva del joystick per manovrare l’elicottero o il pulsante per 
sganciare l’acqua, che viene espulsa a 50 litri per volta. 

Fate del vostro meglio: tutta la città vi osserva! 
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rODQTTCD1 

r c 

^DCr•TCl^ T 

1 ITTI T7"7QT1 



L>MKM 1 1 L.K J 

l s 

CL X nL X 

iJi XLbXimi^IÌI j 



SIMBOLI GRAFICI 

\ SHIFT M 

r 

SHIFT 0 

1 

SHIFT P 

L SHIFT L 

j 

SHIFT @ 

■ 

COMM 

I 

_ COMM e 

■ 

COMM C 

J 

COMM 

/ 

COMM Z 


COMM V 

1 

COMM 

G 

1 COMM M 


COMM - 


COMM 

+ 

COMM % 

COMANDI & COLORI 

a RVS ON 

■ 

RVS OFF 

a 

HOME 


n CLERR 

]d 

CRSR-n 

1 

CRSR- 

■U 

il CRSR-L 

n 

CRSR-R 

1 

CTRL 

PUR 

SI CTRL VEL 

fi 

CTRL GRN 

9 

CTRL 

WHT 

k CTRL CVN 

n 

COMM BLU 

n 

COMM 

CVN 


P0I<E56.44 : CLR : PG$= " •-1 H C •- E ' H D ' I '' 0 " : filJ$= " DI 
BRIflH-'SfiWVER" : JF==1 
REM PIRE “ DI ERIRN SfìWVER 

REM COPYRIGHT (O 1383 THE CODE WORKS 
REM BOX 6905. SRHTR BRRBRRR,. CR 93160 


REM RS OF 8/11/83 GF 

REM EDIZIONE ITRLIRNR:EDIGEO 1984 

GOTO62000 

DIMJDas:;* ; FORI^GTOIS : RERDJDC I > : ne/t 

DRTR0.0.. 0.0.0.3.9.6.0. 14.. 0.2,. 8.. 5 

JS=56320:DEFFNJ(/> =JD C PEEK < J3+/> RND15 >:DEFFNB 

00 = -; PEEK ( JS+/ > RND16 > =0 

R=5324S : Z=0 : P=RND ( -TI > : RERDL : ML=50i+i 1024 

SID=54272:FORI=0TO28:POKESID+1.0 ^ NE/T :P0KE31D 

+24.15:POKESID+6.129 

POKESID+20.129:POKE2042.192:POKER+21.12:POKER 

+29.4:POKER+32.0 

POKEfì+33.0 :POKER+41.14 
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POK:E2043. 193 : P0l<Efl+42.3 

Clì:="il" :C2$="!i1" :C3f="T 

VL=SID+24:CL=55296 

FORI=0TOL-1 :RERDX:POKEML+I.X :NEXTI 

REM LEGGE I DRTI SPRITE 

POR 1=010254 : RERDX : Pi:iKE122S8+I. X : NEXT 

REM SVS RT 980 

P=CRT+WD:+;l3+4 : E=29 : V=3 : TIf="000000" : UT=1000 ^ B 
P=P : CP=P : ULt="liina - " : 1=4 

FV=13 : FX=4 : PRIHT": P0KE5324S+4. Ei4«8+15 : 
POKER+21.12 

PRIHT " •' '■ ■■■ '■ '■ ■■■ ■■■ '■ ■■■ •' ■' •' ■- n_'i=iiir--ìir 

PRIHTC1 $+ " lisr-./- " ••• •- •• " ••• -• ••• a" +C2$+ " \-' ^ •' ■■ '■ • 


PF* I HT " *** **' *' '** '** '** '' '* '** '' ’** *** '** 

PR I HTC 1 $+ " m-/ " •- •• " ••• -■ 1È-' s 
■- "+C3f+" a-.." 

PR I HTC 1 $ + " ••• ^ ••• •' " H' '■ 5 

PRIHTCl’$+“Ma\\J-'■ S 

H" "+C3$+"ai; '1-1 

PR I HTC 1 ^+" «awj - 1 - a 

a^"4C3f+"a-i:i I 

PR I HTC 1 ■$+ " «av-j-a 

B '"+c3i:+"a-• ••'1 I 

PR I HTC 1 $+" iiawj-a 

B -"+c3$+"a2 '1 ii- r i I 

PR I HTC 1 $■+ " Mav-J-'■ a 

B- "+c3«+"a-' - i I 

PRIHTCU+"Ma\ J-«•' - a 

B'"+C3$+"«i '1 WWM I 

PR I HTC 1 ^+" «awj-a 

B "+C3$+"ail I 

PR I HTC 1 $+ " «av-j-a 

B- "+C3$+"a'--l WWMÌ 
PR I HTC 1 $+" ma-o-j-■' a 

B- "+C3$+"a5 -1 I 

PR I HTC 1 $ + " Mav-J-B-' '■ a 

B-^"+C3f+"ai:l wwm\ 

PR I HTC 1 ■$+ " ’ia-J-B\'’ " 

B\"+C33:+"’ia- | ' I 

PR I HTC 1 + " ■■■ - n -B- " ' 

jB'■••■"+c3$+"’^ai_ m _I 

PRIHT .Ili II II .. Il . 

PRIHT"-- -- 


B' '■ a"+C2$+ " •' '■ '■ '■ -■ •' 

'■ a"+C2$+" ••••/■ I- 

i -' a"+C2f+" -j I- n ■'n n 
»-■ a" +C2$+ " '■ I ■■■ "■■■ '■ " 

a"+C 2 $+" N □ 'n n 
■■■ a"+C2^+" j ~ 

!•'•■a"+C 2 $+" N - n n 

a" +C 2 $+" \\j ^ ~ - ~ 

a"+C2f+" ■•••j I' n- n n 


■•■■■'a"+C2f+"^-M 


/ —/ —y / • 


"■a"+c2f+" N - n -n n 

•s'’"+c2i:+"ia-j 


’+C2f+"’^ai_ 
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F0RHV=1 UWriTO20iflJDSTEPWD3)«2 : F0RNX=18T026STEP3 : 
POKECL+HV+HX.6 
HEKT:NEXT 
IFTI>10800THEH1060 

IFWT=0THEHWK=WK+1:P0KEfi+41.14-IFUK/2=IHT<WK/2 
)THEHP0KEfi+41.8 

IFFX=10THENFK-16:P=P+6:GOTO510 

IFFX=24THENFX=16:P=P-6:GOTO510 

REM IFI NT < RND < 10 > i*£2 > =0THEN510 

CV=0 : IFRHD( 1». 5THEHCV=-1:0010450 

GETI: IFIH$="Q"THEHPOKEV10+21.0:POKEVIC+5.0• 

PRINT-.T* :EHri 

IFRHrK n>. 5THEHCV=1 

CX=0:IFRNDt1>>.5THENCK=1:GOTO460 

IFRHD<1».5THENCX=~1 

G=CX+CV*WD : IFPEEKtP+G>=320RPEEK;<P+G+l >=320RFX 
+CX<3THEH510 

IF < PEEK(P+G) = 160ORPEEK < P+G+1> = 160 > fiHDRHD <1> <. 
7 THEH510 
P=P+G:FX=FX+CX 

POKEP.233 :POKEP-CRT+CL.2 :POKEP+l.223 :POKEP+1- 
CRT+CL. 8+1 NT ( RND C10 > *.2 ) *5 

GOSIJB970 : REM : GET I $ : I = VfiL U $ > : REM : IF11THEHI 
= 11 

REM IFI1=0RNDI=5THEHI=0 

IFI =6fiNDE<:30THENE=E+1 

IFI =4(=IHDE>3THENE=E-1 

IFI=2fìNDE=30THENV=V+1 

P0KE53248+4. Ei*58+15 P0KE53248+5. V#8+e0 

PRINT:IFNOT(E=30RNDV=4)THEN700 

POKESiri+24. 15 : POKER+41.14 : IFWT>=1000THEH630 

POKESID+19.64 :POKESID+18.17 

FORWT=WTTO1000STEP100 :POKESID+14.WT/20:POKESI 

D+15. WT/20+20 : GOSIJE970 

FORN=1TO100 :NEXT:NEXT:POKESID+18.0 :POKESID+19 

.0 :POKESID+14.0 :WT=1000 

D=4:V=V-1: 1=4 

GOSIJE970 

I=FN.J(0> 

IFFHB';:0>=0THEN360 
IFWT>0RNDE<>30THENS10 
POKEVL.0:GOTO360 
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990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1075 

1076 
1080 
1090 
1120 

1130 


WT=WT-50 : POKESI Ii+5,64 •' POKESID+4.17 : POKESID+24 
. 15 

POKER+6. E#S+18 : FORW=Vits8+68 TO 8i4s26STEP8 : P0KE2 
043.193:POKESin.235-W 

POKES ID+1.230-W : WS= < CRT+E+1 NT < C < W-40 ) /8 > ) mii ) 

IFPEEK(WS > =2230RPEEK < WS > =233THEHP0KEWS.160 : PO 
KEWS-CRT+CL.11 :GOTO900 

POKE2043.194 :POKEfl+7.W:HEXT:POKE2043.195 : FORI 
= 110200 : HE7:T 

POKEFl+6.0 : POKEfl+7.0 : POKES 111+4.0 : POKES ID+5.0 : P 

OKESID.0:GOTO360 

POKE2043.195 

WS=WS+WD: IFPEEK < WS > =2230RPEEK C WS > =233THEHP0KE 
WS.160 :POKEWS-CRT+CL. 11 

FORH= 15TO0STEP-1 : POKES I D+24. N : POKES ID+4.129 P 
T TJ+S 

PCiKES ID+1.40 : POKES ID. 200 : WEXT 

POKESID+4.0 :POKESID+3.0 :POKESID+24.15 

POKEfl+7.0 :POKEfl+6.0 :SVSML 

IFPEEK <10 > =0THEH1000 

GOTO360 

PRI NT " mm" ; TfìB ( 6 >" stempo ; MID# < TI $. 4 . 1 > ; " : " ; 
PRI NT RI GHT$ C TI $. 2 > ; SPC < S > J " flCQUfl : " ; WT ; " II'' " 
SVSML: RETURN 
REM 

TMÌ:=TIÌ::POKEfl+21.0 
GETDt: I FB$Cy ""THEN1010 
FORN=1TO3000:NE:=<T 

PR I NT " nsMW' ■' Hfl I SPENTO ' L •-1NCEND10 " IN " " ; MI D$ a 
M$.4. !> .; " : ";RIGHT$aM$.2>; " ! " 

XT=XT+1: GOTO1070 
FORN=1TO3000:NEXT 

POKEfl+21.0: PR I NT " n?Itì - -■ NON - SE I ' RI USO I TO ' Fi •• SPEG 
NERE 'L"INCENDIO !" 

7:N=XN+ 1 : PR I NT " ;?»ÌHfl I ■' SPENTO ' " XT ” I NCEND I -■ ' SU ' " 

xn; 

I FXT= 1THENPRI NT " " •' GOTO 1080 

PRINT 

GOSUE9100 : IFS'NTHEN130 
PRINT"n":END 

DATA 54.160.0.132.10.160.1.169.0.133.251.168. 
162.4.134.252.177.251 

DATA 201.223.208.6.132.10.169.233.208.16 
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1140 

1160 

1170 

9100 


9110 

9115 

9120 

9130 


9140 

9150 

9160 

9170 

9180 

9190 

50000 

50010 

50020 

50030 

50040 

50050 

50060 

50070 

50090 

50100 

50110 

50120 

50140 

50150 

50160 

50170 

60000 

60010 

60020 

60030 

60070 


DRTfì 201.233 > 208.4.132.10.169.223.208.6 

DATA 201.205.203.4.169.205.145.251 

DRTfì 200.208.223.230.252.202.208.218.96 

HO=0 : PRI NT " aBBUtì " •- GIOCHI - RNCORR? " SJSI •- NO " 1" ■ FOK 

EVIC+5.0 

TM=0:SU=1 

PR I NT •’ a" GI OCH I RNCORR? -■ SE I NO ' 1" 

IF TICTM THEN 9150 

PR INTTRB < 16+N0i^4 ; MI D$ C " affl". SW. 1 > J MI (. " ' SI NO 
•■'’.3>^N0+1.3>; "T‘ 

SU=3-SW:TM=TI+15 

JD=PEEK ( JS > RND31 : JE= < JD< 16 > : JD=JDRNri 15 
IF JE RND Jri=15 THEN VN=';NO=0> RETURN 
IF<JD RND 8)=0 RND NO=0 THEN NO=l:GOTO 9110 
IFCJD RND 4::'=0 RND NO=l THEN NO=0:GOTO 9110 
GOTO 9120 

DRTR0.0.0.0.0. 0.0.0.0.0.0.0.0.0.0.63 
DfìTfìl23.0.4.0.0.4.0.0.14.0.0.63.128.6.79.224 
DRTR11.143.255.253.159.255.253.255.224.11.127 
.192.6.9.0.0 

DRTR9.0.0.63.192.0.0. 0. 0.0.0.0.0.0.0.0 
DRTR0.0.0.0.0.0.0.48.0.0.48.0.0.48.0.0 
DRTfì48.0. 0.50 j 0.0.51.0. li!. 51. U. . 3 j .0.6.3 
DRTR0.6.11.0.6.43.0.6.107.0.2.98.0.0.96.0 
DfìTR0.96.0.2.96.0.2.32.0.2.0.0.0.0.0.0 
DRTR0.0.0.0.0.0.0.32.0.0.96.0.2.96.0.6 
DRTR9S.0.6.6.0.6.102.0.0.102.0.12.100.0.12.33 
DfìTR0.12.35.0.4.3. 0 .0.130.0.0.192.0.0.200.0 
DRTfì0.204.0.0.76.0.0.12.0.0.4.0.0.8.0.0 
DRTR0.0.0.0.0.0.0.0.0.0.0.0.0.0.96.6 
DRTR0.192.7.3.129.3.199.6.1.195.12.1.129.56.2 
52.0 

DfìTfìll2.62.0.64.0.1.0.14.0.192.28.68.112.48.1 
98.24 

DRTRy i"'. 131.12.3. 3.0.0.1.128 . 0 . 0 . 128.0.0.0.255 
■ 255 . 0 . ■^‘55 

I " ••• •• "2T=T I : ZC==2 : ZD$=CHRt < 20 ) 

GETZ$ : IFZSO" "THENG0070 

I FZT<=T ITHENPRINTMI M (. " i". 2C. 1 > ; ” II" ; : ZC=3-2C 

;ZT=TI+15 

GOTO60010 

Z=fìSC - ZL=LEN ( I m > : IF <ZRND1 27 ><32THENPR I NT 
"■•'ir.; :GOTO60110 
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60090 

60100 

60110 

60120 

60130 


60140 

61000 


61010 

62000 


62010 

62020 

62030 

62040 

62045 

62050 

62060 

62070 

62080 

62090 


62100 

62110 

62120 


IFZL>QI THEH60010 
IIN$+Z$:PRINTZ^. ZB$; Z$; 

IFZ= 13THENIN$=M ITJt Clm.2)- PRINTCR$; : RETURN 
I FZ=20fìNri2L> 1THENI N$=LEFTT < I H$. ZL --1 > : PR I NT " JI" 
;:GOTO60010 

I FZ= 141 THENZ$=i:;HR$ < -20# < ZL> 1 > > : F0RZ=2T0ZL : PR I 

NTZì:; : NEXT : GOTO60000 

GOTO6001'J 

CRT= 1024 : VI C=53248 ^ Wri=40 : CR$=CHR$ 13 > : S10=542 
72 :JS=56320:CM=55296 
QL=214:QI=254:RETURN 

G0SUB61000 POKE VIC+320 : POKE VIC+33,0 : LN=LEN ( P 
G$) : TB=<40-LN;'/2 

PR I NT ".TffflSMPJiia" T3B ( TB > LEFTt ( " - •' ' ' ' •- " •- ' -• ' •- ' ' -■ ' 
••• % LN) 

PR I NT ■' a" TPIB( TB > PG£- ■ PR I NT " S" TRB < TE L.EFTì: < " •- ' ' ' 

y / y y y / y y y y y y y y ii _ |_f.j 

PR I NT " ;?I«" TRE C 40-LEN ( fiU$ > > /2 > RU$ 

MS$= " ERTTI •' RETURN - PER INIZI RRE " 

IF JFTHENMSÌ = " PREM I ' IL •' JO VSTICK ^ PER "INIZI RRE " 
TB=':; < 40-LEN CM3f>>/2) 

PR I NT " MPMek." TRE < TE MST : PR I NT " " ' •- - " 

•' < C > 1983 ••• THE CODE " WORKS " 

GETIN^ •• IFI N$<> " " THEN62120 

IF PEEK < JS > RND16 > =0THEN62120 

PR I NT "TRB C TB > LEFT$ < " . K+1 > L 

EFT$<MS$yQ> 

0=0+1 : I FQ>LEN MS$ ) THENG!=0 : K= 1 -K 
GOTO62G70 

CLR : PRINT"na" GOSUB61000 : GOTO 100 





Bruco 

(joystick) 



Lo scopo del gioco è molto semplice: dovete cercare di mangiare quanti 
più fiorellini, che appaiono e scompaiono sullo schermo, con un "bruco” 
che potete comandare con il joystick. 

Esistono solo due restrizioni: non potete urtare le pareti, né tornare su 
voi stessi, urtando contro un altro punto del bruco. Mano a mano che in¬ 
ghiotte i fiorellini, il bruco diventa sempre più lungo, e i fiorellini rima¬ 
nenti aumentano di valore: il bruco può diventare così lungo da essere 
difficilmente manovrabile e avete a disposizione 6 prove (e quindi sei urti 
contro le pareti o contro il bruco stesso) prima di terminare. I vari livelli 
di difficoltà aumentano la velocità di spostamento del bruco: provate l’ul¬ 
timo! 
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r>rtriCiTTCCt T 

OOCr'TOI T 1 

ITTI T77QTT - - - -, 

L.nKr11 1 LKl 

SIMBOLI GRAFICI 

H COMM + 

orcL*J.nUl l 

J 1 X L. X IX 1 

COMANDI & COLORI 

a RVS ON 

■ RVS OFF 

a HOME 

n CLERR 

» CRSR-D 

n CRSR-U 

Il CRSR~L 

m CRSR-R 

a CTRL WHT 

m CTRL VEL 

k CTRL CVN 

a CTRL PUR 

SI COMM CVN 




0 PG$= " -■ B R LI C '■ 0 -■ " : flUf = "DI- TOM " MflRflZ I Tfl ^ fìHD " ER 
IflW-SflWVER":JF=1 
1 REM 2fìP — EV TOM MRRfìZITfi 
c* 

5 REM COPYRIGHT (C) 1983 THE CODE WORKS 

6 REM BOX 6905. SflHTR BfiRERRR. Cfi 93160 

10 REM RS OF 9/1/83 GF 

50 REM EDIZIONE ITRLIRNfl:EDIGEO 1934 

90 GOTO62000 

100 MX=:255 • DIMWM < MX >. R ( MX > : BS=0 : QI =256 

101 DIMJDC15>:FORI=0TO15 :RERDJDU >:NEXT 

102 DEFFNJ < X > = JD ( PEEK C JS+X > AND 15::': DEFFNE C X > = < PEEK 
•;JS+X;:'RND16>=0 

103 GOSIJB7000 : GOSUB 4000 : DRTR0.0.0.00.3.9.6.0. 1.. 
7.4.0.2.8.5 

110 EL= 18 : HP=0 : TP=0 WI =2 : LM=MX-W I : RL=0 : CR=0 ^ H=0 : T 
C=0:SC=0:K=0:Q=0:KN=0 

111 GOSUB 1000 

120 P0KE51147. < 5-G3- W3 

1 v'S PP T hJT " T' : •-'JC-c; « h rs 

130 p6kE 25 1.190^P0KE252. 7 : WM ( HP =P0 : HP=HP+1 : RL=flL 
+1:S=1:LN=10:K=0:HT=0 

140 POKE1001.216-P0KE51061.10:FORN=50000TO50555:P 
OKEN.0 :NEXT 

160 FORX=WD+1 T0WDi<«2-2 : POKECRT+X. 100 : POKECM+X. 1 : HE 
XT 
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F0RX=WDi*!2T0WD*23STEPWri ■ POKECRT+X. 103 : POKE Cri+ 

y.,1- ne:=<t 

F0RK=Wnif24+lT0WD:4!25-2 : POKECRT+X. 99 : POKECfl+K. 1 
: HEXT 

F0RX=WDif24-lT0Wrisl«3-lSTEP-Wri:P0KECRT+X. 101 :POK 
ECM+X.1 :HEXT 

POKECRT+UD.96 :POKECRT+WD+39.96 :P0KECRT+WD#24. 

96 :P0KECRT+WD*24+39.96 

PRI NT •• a" TRE < 29 >"4.1 VELLO= " G 

GOSIJB900 

GOTO380 

GETfl$: IFFI$="Q"THEH650 
SVS51003 :FORDL=1TO < 5-G)*30 :HEXT 
Z=PEEK(:999> ; IF2=42THEHGOSUB550 : GOTO350 
IF2O32THEH590 
IFHT>0RHDRHD< IX. 93THEH326 
IFK>4RHDRHD<1XG/10 THEH 230 
IFK>9RHDRHD(: 1K. 85THEH405 
K=K+1:KH=KH+1:HT=HT+1 

R C K)=RHD <1> *904+1104:1FPEEK(fl C K))O32THEH390 

POKER42:GOTO230 

IFK=0THEH380 

2=IHTtRHD<l>*K>+l 

REM IF PEEK<R':;2>X>42 THEH 440 

IF PEEK < R C 2 ) > 042 THEH R < 2 > =R C K > : K=K-1 : GOTO440 

IF RHD<l»HT/9 THEH 230 

HT=HT-1:P0KEfi<2).32 

R(2)=R < K >:K=K-1 :GOTO230 

POKE SID+18.33:HT=HT~1 

SC=SC+1HT C LH/1.6):q=q+ i 

S=S-1 :POKE C PEEK C 251)+PEEK < 252 > *256 >.81 :LH=LH+ 

2:IFLH>127THEHLH=127 

POKE51061. LH : IFEL<:LMTHEHEL=EL+WI 

GOSIJE900 : POKESID+18.16 

RETURH 

CR=Cfi+l 

IFCS>LTHEHL=CS 

CS=0 

EL=18:HP=0:fiL=0 

TP=0 

CV=0:POKE SID+4,129 :POKE SID+11.0 
PO=PEEK <251)+PEEK < 252)*256 
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635 


636 

638 

640 

650 

660 

665 

670 

680 

682 

700 

900 

910 

1000 

1100 

1110 

1120 

1200 

1210 

1220 

1300 

1310 

1320 

1330 

1400 

1500 

3200 

3210 

3220 

3230 

3500 

3510 

3520 

3530 


3540 

3550 

3560 

3570 


3580 

3590 


FCiRT= 1TOS : FORX= 1TO100 : HEXT : POKESID+4.128 : POKE 
PO.209-FORX1=1TO100 

HEXT : POKEPO .81: HEXT : POKES 111+24.0 : GOSUB1000 

IFCfi=6THEH650 

GOTO120 

IF SP''>'BS THEM BS==SC 

PRI NT L '' TUO •' PIJNTEGG10 E ' •- " SC 

PRI NT " :?HR I •' PRESO IL ’M NT C C Q/KN ) •* 100 ) ; " Ki ' DE I ' 

BEPSFiGL I 

PR I NT " WtìI L " PIJNTEGG 10 ' PIU ^ ■' ALTO ^ E ' : " ; BS : PR I NT 
GOSUB 3500 
IF VN THEN 110 
PRINT: END 

PR I NT " Ì»PUNT I = " SC ; TAB 12).: '• SCONTR r RES. = " 5-C A 


RETURN 

FOR I=0TO 28:POKE SID+I.0:NEXT I 

REM CRASH 

POKE SID+6.250 

POKE SID+1.2 

REM BELL 

POKE SID+15.64 

POKE SID+20.250 

REM TURN 

POKE SID+12.80 

POKE SID+13.240 

POKE SID+8.12 

POKE SID+24.15 

RETURN 

T=PEEK< VIC+17.) : POKE V111:+17.0 : T=T/1 
P0KEVIC+33.7:PRINT "n" 

POKE VIC+33.0:POKE VIC+17.T 

RETURN 

NO=0 

TN=0 : SW= 1 : PR I NT " aG IOCHI " ANCORA? " S3S1" NO " T' 

IF TKTM THEN 3550 

PR INTTAB C14+N0*4 ) ; MI D$ < " *0". SW. 1 ) ; MI D$ ( " SI NO 
^".3#N0+1.3)j"H" 


SU=3-SW:TM=TI+15 

JD=PEEK<J3)AND31:JE=<JD<16):JD=JDAND15 
IF JB AND JD=15 THEN 3600 
IFCJD AND 3)=0 AND NO=:0 THEN NO=i:GOTO 3510 
IFCJD AND 4)=0 AND NO=l THEN NO=0:GOTO 3510 
GOTO 3520 
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3600 


4000 

4010 

4020 

4030 

7000 

7010 

7020 

7030 

7040 

7050 

7060 

7070 

50000 


50010 


50020 

50030 

50040 

50050 

50060 

50070 

500S0 

50090 

50100 

50110 

50120 

60000 

60010 


PRI HTTfìE < 14+H0#4 ; " T ; MID*: < " ' SI HO " ". 35t«HO+1.3) 

; "T‘ :VH=<Hi:i=0) : RETURN 

PR IHT " aSTO -• LflVORRNDO... Il" 

FORH=51000TO52O00 ^ RERDfl : IFR=999THENRETIJRH 

POKEH. R HEXT 

RETURN 

PR I NT " □aOSlBECEGL I ■■ UN ' LI VELLO ' : SW* : 

FORI = 1T05:PRINTI ; :NEXTI :PRINT :G=1 :T=1 :TM=0 

K=G:iF Ti>TM THEN PRINT TRE';;3i«G-3) ; nirif*;: " 30". 

T.. 1); "T';G:T=3-T:Tri=TI + 10 

IF FNja3)=4 THEN IF G>1 THEN G=G-1 

IF FNJ(0)=6 THEN IF G<:5 THEN G=G+1 

IF XOG THEN PRINT TREOsfiiK-G) J "STT'; X : T=1 : TM=0 

IF FNB(;0)=0 THEN 7020 

PRINT"n": RETURN 

DRTR32.202.199.32.155.199.173.233.3.201.128.1 
6.14.24.101.251.133 

DRTR251.165.252.105.0.133.252.24.144.9.24.101 
.251.133.251.176.2 

DRTR198.252.160.0.177.251.141.231.3.169.81.14 
5.251.32.137.199.165 

DRTR251.141.80.195.165.252.141.124.196.162.10 
j 189.80. 195.133.253 j 1 £'9 

DRTR124.196.133.254.240.6.169.32.160.0.145.25 
3.96.162.250. 189.79 

DRTR195.157.80.195.189.123.196.157.124.196.20 
2.208.241.96.162.0.173 

DfiTfl0220. i' 4. 1 r' 6.2. 162. 1. f' 4.1 f' 6.2. 162.2.142. 2 

DRTflf ^168'138.24.105.3.170.152.74.176.5.138.2 
4.105.6.170.224 

DRTR0.240.6.189.212.199.141.233.3.96.169.0.24 
. 101.162.197.162 

DRTR208.252.96.1.216.40.255.215.39.1.217.41.1 
69.216.133.254.169 

DRT R80.133.253.162.22.160.38.152.41.3.142.237 
.3.170.189.10.200 

DRT fl 145.253. 11’ 4.23 ■' . 3. 136.208.238. 165.253.24. 
105.40.133.253.144.2 

DRTR230.254.202.208.222.96.7.7.7.7.999 
I N$= 2T==T 1: 2C=2 : ZDf=CHR$ ( 20 ) 

GET2$ : IF2$-3>" "THEN60070 
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60020 

60030 

60070 

60090 
60100 
60110 
60120 

60130 

60140 

61000 

61010 

62000 

62010 

62020 

62030 

62040 

62045 

62050 

62060 

62070 

62080 

62090 

62100 

62110 

62120 


IFZT<=TITHEHPRINTMID$t " ' W '. 2C. 1 > ; "II" ; : 2C=3-2C 

:2T=TI+15 

GOTO60010 

2=RSC (.zry- 2L=LENCI m > : IF•:ZfìND 127><:32THEHPRINT 

" ••11"; :GOTO60110 

IFZL>QI THEN60010 

I m -1 m+z$ ■ PRI NTZ$ ; zd$ ; z$ j 

I FZ= 13THENI N$=M I Dt CI . 2 > : PR I NTCR$ ; RETURN 

I FZ=20FlNDZL> 1THENI N$=LEFTt CI N$. ZL-1 ) : PR I NT " II" 

;:GOTO60010 

I FZ= 141 thenz$=i;;hr$ c - 20;^ ( ZL> i):>- forz=2TOZl ; pr i 
NTZ f.: : NENT : GOTO60000 
GOTCI60010 

CRT=1024 : VIC=53243 : WD=40 : CRÌ=CHR$':; 13> : SID=542 
72 :JS=56320:CM=55296 
QL=214:QI=254:RETURN 

G0SUB61000 :POKEVIC+32.0 :POKEVIC+33.0 :LN=LEN(P 
Gì) :TB=<40-LN;'/2 

PR I NT " nmmnzi" tre tb > left$ c " •- ' - •' •- " •- '■ '■ ^ " 

- ••""■^LN:' 

PR INT " a" TRB < TB > PGf : PR I NT " S" TRB C TB > LEFT$ ( " ' 

PR I NT " TRE 40--lÉn C RUf > ) /2 > RU# 

MSf = " BRTTI •' RETURN •- PER •- INIZI RRE " 

IF JFTHENMS$= " PRENI ■■ IL JO VSTICK PER "INIZI RRE " 
TB=';<40-LENCriS:T))/2) 

PR I NT " MRMfik" TRB C TB ) MSf : PR I NT " ieMKOsMfiilk" •- •' " •- -■ " -• 
" C C> " 1983 -■ THE " CODE " WORKS " 

GETINf: IFINf<>""THEN62120 

IF(PEEK < JS > RND16 > =0THEN62120 

PR I NT " TRB C TB ) LEFTf C " . K+ 1 > L 

EFTfCNSf.Q) 

Q=G!+1 : IFQ>LEN-::riSf>THENQ=0:K=l-K 
GOTO62070 

CLR:PRINT "HT ■ G0SUE61000 : GOTO100 



Everest 

(joystick) 



Pensate di essere dei provetti scalatori? Provate a cimentarvi con questo 
gioco, scalando la montagna più alta del mondo, senza venir travolti dal¬ 
le forze della natura. 

L’Everest vi si presenterà all’inizio come una montagna bianca e grigia, 
dove le zone rocciose (parti più scure) sono più facili da scalare di quelle 
innevate: dovrete cercare di seguire queste zone il più possibile, per ri¬ 
sparmiare preziose energie! 

Per rendere la scalata più emozionante, di tanto in tanto il C-64 darà ori¬ 
gine a delle valanghe o scatenerà delle tempeste di neve; entrambe vi 
spingeranno inesorabilmente a valle, ma mentre le prime scopriranno al¬ 
tre zone rocciose (e quindi più facili da scalare), le seconde ne copriranno 
di neve alcune. Poiché né gli amici né il denaro vi mancano, potete rice¬ 
vere, nel corso della vostra scalata, degli aiuti aerei per ben tre volte; ba¬ 
sterà premere il pulsante del joystick per far giungere un aereo che para¬ 
caduterà un pacco di viveri sulla montagna: se riuscite, con le forze rima¬ 
ste, a raggiungerlo, il vostro livello di energia aumenterà e potrete ri¬ 
prendere la scalata. Non aspettate però l’ultimo istante per chiamare i 
soccorsi: avrete bisogno ancora di energia per raggiungere i viveri, che 
atterreranno in un punto qualsiasi della montagna. 

I vostri movimenti saranno controllati dalla leva del joystick; il gioco ter¬ 
mina per sfinimento (cioè per esaurimento dell’energia a disposizione) o 
per la vostra conquista della vetta. Buona passeggiata! 
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r, 

^DCrr*TOI T IITTI T*7“7 

QT T 


LMKrlI ILKl 

•m 

'j\ JL I Iw A U 1 X L» A 

ri 1 1 


SIMBOLI GRAFICI 

/ SHIFT N 

'\ 

SHIFT M 

r 

SHIFT £ 

COMM W. 

1 

COMM + 



COMANDI & COLORI 

a RVS ON 

■ 

RVS OFF 

a 

HOME 

72 CLEAR 

fi 

CRSR-D 

n 

CRSR-IJ 

Il CRSR-L 

al 

CTRL WHT 

il 

CTRL GRN 

n CTRL VEL 

1 

CTRL PUR 

hk 

CTRL CVN 

C COMM RED 

a 

COMM CVN 




PG$= " E •' V E R E ■ S T •- " ^ " D T'BRI flN •- SfiWVER " : J 

F=1 

REM EVEREST -- EV BRIRN SflUVER 

REM COPVRIGHT O::- 1983 THE CODE WORKS 
REM BOX 6905. SRHTR BfìREfìRR.. Cfl 93160 


REM fìS OF 8/11/33 GF 

REM EDIZIONE ITRLIRNfì:EDIGEO 1984 

GOTO 62000 

CL=55296:V=5324S;DIMJDC15> ^ FORI=0TO15:RERDJDC 
I>:HEXT 

DFlTfi00.0.0.0.39. ò. 0. 1. r. 4.0 2.8 > 5 

DEFFH J ( X > = JD •: PEEK C JS+X ;■ RHD15 > ^ DEFFNB ( X ) = •;: PEEK 

';:JS+X:-fiND16)-0 

DIMVa0> : FORN=0TO9STEP2 : V<N)=204 ^ V(H+1 >=205 : N 
EXT:P(;0>=200:P<1>=203 

POKE53280 ,. 3 : P0KE532S1.. 0 : POKEV+40. 7 ■ F0RN=1T06 : 

RERDRCH):NEXT 

DfiTR0.11.12.15.1.1 

FORBS==200*64TO208iK64STEP64 

FORN=0TO62:POKEES+N.O:NEXT 


RERDfì:FORN=0TOR-1: PERDE 
DiMca5> :c(;0>=i :cai>=2 
D1MI<(5> :Ka> = l :|<<2> = 1 :K' 


POKEH+ES.E :NEXT:NEXT 
ca2>=3:ca5>=4:ca>=5 
;3> = 1 :K<4> = 11 :K(;5) = 11 
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140 POKE2042.205 : Pi:iKE2040.201: POKE2041.200 : PIJKE20 
43.207:POKE53277..5 

150 SR= 100 : POK:E2044 .. 20S : GOSUB1000:130SIJE223S 
165 X= 113 : V=23S : DR=3 : POKEV+21.31: Gi:iSUB2239 
167 VL=54296:H0=54272:WV=54276:DE=54277:POKEVL.15 
: SIJ=5427;3 : POKEriE+7. 129 

16S POKENO+7.0 : POKEHO+3.0 : POKESIJ+7.255 : POKEWV. 129 
: Pi:il<EWV+7. 129 

170 GOSUB2400:GOSUB2000:1FSR>0RHDV>73THEH170 
175 IFV<74THEI-ì'4000 
1S0 GOTO4100 
1000 REM 

1010 PRINT "1":GOSUB 1300 :GOSUB 1600 :NN=1 :P1=28-4# 
WD 

1020 FOR V=1 TO 2l:F0R X=1 TO KN : P=V#WD+:4~P1 : N=IHT 
'.'RNria>#5> + l 

1025 IF RNDa>>.7 THEN N=5-INTO;:V-l >/4:' 

1030 POKEP+CRT.160 :POKEP+CL.fl C N):NEXTX 
1035 XN=KN+2:P1=P1 +1 : IFV>13THENP1=P1-1 :XN=XN~1 
1 040 NEXTV:POKECL+ 1 3+4#WD. 1 
1 050 PR I NT " 

1060 PRI NT " '• :eii - -• Mir a" 

1090 RETURN 

1095 POKER.4:1FNOTFNB < 0 > THEN4230 
1300 PR I NT "iifimfW '■ ^ •' ■' 


1305 

1310 

1315 

1320 

1325 

1330 

1340 

1345 

1350 

1355 

1360 

1370 

1400 

1405 

1410 

1415 


PRINT" ^ ^ ^ ^ V" 

PRINT^ .y- 

PRINT" ^ ^ ^ ^ X.. '- ••• -• ■ x 

PPI NT " ^ *’ ' ■** ' ' *' *' '* ^ ■' '* ** *’ ^ ** ^ *’ ■*’’* '* *’*• •' 

PRINT" ^ ^ ■y-X'-x/'-.A 

PRINT" ‘ '* ^ ' ‘ * ‘ ’* * '' * * ' ^ ^ ’*• 

PRINT" 

PRINT" ^ •' •' ••• --x 

PRINT" ^ ^ ^ ^ ^ 

PR I NT ^ ^ •'* •*' •*' ■*' •** •'* **' •*' •'* *■' •*' •'* '** •'* •** •*' •*' **' *'* **' \ 

PR I NT " ' ^ ^ ’ ‘ * ’ * * ' ** ’* * * ^ * ’ ' ' ^ ^ ^ 

RETURN 

REM 

PP' I NT " Si'* ’’ ^ '* '* *’ ■’ •’ ** *'* *' ** '** .•**'*• 

PRINT" ^ ^ ^ 

PRINT" " •- 
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1425 

1430 

1435 

1440 

1445 

1450 

1455 

1460 

1500 

1600 

1610 

2000 

2005 

2010 

2110 

2115 

2120 

2125 

2130 

2140 

2200 

2201 

2202 

2205 

2206 
2207 
2210 
2215 
2220 
2230 
2232 
2234 

2237 

2238 

2239 


PRIHT" ^ ^ ^ ^ V" ^ 

PRINT" - ^ ^ 

PRIHT'' ^ ^ ^ ^ ^ ^ 

PRIHT" - ^ ^ ^ ^ ^ •■•/V" ' X 

PPI NT " ^ ■** •** •■* •** •*■ •*' /••* .•* ••* •'* •*.. 

PRI NT ^ ^ ^ ^ ^ •' •' ••• •' -■ ••• '• ••■ ••■ •' ••■ ■' ••■ ^ •' '■ •- •' ••■ • ■.. 

PRINT" ^ ^ ^ 

PRINT" ••• ^ ■- / - ^ ^^ •• - .- 

RETURN 

PRI NT " iasMS)!M««^ 


PRI NT " : R 

ETURN 

REM TORMENTI^ 

EV= I NT < RND < 10 > * 135 ) +95 : E;K=2 16-EV : D=3 :1FRND ■;: 1 > 
>.5THEND=-3:EX=EV+26 

E=RNri C1 > 3f 5-1 : E=CL+EN/8+1 NT ( EV/S > 3^WD-241 
EV=EV+E : EX=EX+D : POKEV+39.6+83<f < ENfiND 1 ) 

POKEE^1 

POKE2040> 201+RNDt i - POKEV. EXFIND255 ■ POKEV+1. 
EV : GOSIJE2200 

IF NOT < EV>60fiNDEV<230fiNDEX>24fiNDEX<255 > THEN2 
140 

IFSRflNDV>72flNDRND':: 1 ». 09THENGOTO2010 
POKEV+1.0 : RETURN 
REM JOVSTICK 
GETQ$ 

IFQf="Q"THENGOSUE4300:G0T04210 

POKEV+2.X :POKEV+3.V :Z=PEEK<53278>:IFZBNDZTHEN 

GOSUE2700 

IFNOTPEEK C 53279 > RND2THENGOSUE2800 

IFFNE < 0 > THENGOSUE2600 

N=FNJC0>:IFN=5RNDSR>.9THENRETURN 

POKENO+8. SR+3 : IFN=6fiNDX<247THENX=:X+8 : G0T02234 

IFN=4RNDX>9THENX=K-8:G0T02234 

IFN=8THENV=V-1:G0T02234 

I FN=2RNDV<:238THENV=V+2 

R=C < PEEK < CL+X/8+1 NT C C V+3 > /8 ) stiWD-241 > RND 15 > : SR 
=SR-fi*.45 

POKE2041.P < RRND1):R=R+1 
IFSR<1THENSR=0 

PR I NT " iSaS" TRE < 5 ) " FORZE : " I NT •: SR > " II’' " 





wl ro PO PO PO PO PO PO PO PO PO PO PO PO PO PO PO PO PO PO PO PO PO PO PO PO P.Ì PO PO PO 

0 - J --J -O --1 -0 “0 -VJ - J CTi CTì Ch CTt (Tì CTi CT', i7i OT-i CT'. CTi CH CH CH Ul CT» 4 ^ 4^4^ 4i- 4i- 

J ►- 1-* O CSD O O CD O -Pt CO PO PO PO >-* ►-* O O O 4^^ CO CO PO CO PO PD *-•• O 

D o CO -'•j ch cn -fK ® m d cn pd o cn <S' cn o o cn d d d d cn d d d 
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2240 PRINT"aaS"TftBC20>"BEREI"RIMfiSTI :"INT(DR>"ir": 
POKEHO+8.0 : RETURN 
REM Ffi Lfì VRLflNGfi 

aV= I NT ( RND < 10 > if: 100 > : BX= 114+flV#SGN C RND C1 > ~. 5 ) : 
BV=flV+90 

POKEV+4, flX : POKEV+5fìV 

POKENO.255•POKENO+1.37 :POKEUV.129 :POKEDE.4+8+ 
l*^'3+64 'POKESU^l 

KL=CL+R:K/8+ I NT C fl v/8 ) i*EWri-241 : RZ=fl V+RND C1 ) C 224 
-flV> 

F0RfìH=fiVT0l=l2STEP4 : POKEV+5. AH : Pi:iKE2042. VCfìHBND 


cSOtiiO 


POKEKL.fl';:RND< 1 >W.3:' ■■ POKEKL+1.fìtRNDC 1 ■ IFFlHR 

ND4THENKL=KL+Wri 

GOSIJB2200 : IFKL>CL+40st«24THENSTOP 
IF V<72ORSR=0THENRETIJRN 

NE/T •• POKEV+5.0 : POKEV+4.0 : POKEWV0 : POKESU. 0 : RE 
TURN 

REM LFINCIO AEREO 
IFDR=0THENRETURN 

DR=DR-1 :POKEV+9.0 :A=INT < RND <10)#70 > +100 :POKEW 
V+7.129 

B=65 : POKEV+7.50 : FORN=255TO0STEP--1 : POKEV+6.. N : P 
OKENO+8.N/10 

IFN=ATHENP0KEV+8.A :GOTO2620 
NEKT 

POKEWV+7.17 : FORN=ATO0STEP--1 : POKEV+9. B : B=B+. 5 : 

POKEV+6.N:P0KEN0+S.N 

NE/T 

B=B+1:POKEV+9.B 

IF < B< V-22 > OR < PEEK C 53279 AND 16=0 > THEN2625 
POKEWV+7.129 : POKE2044.208 : GOSIJE2240 : RETURN 
REM 

IF(2AND16 > =0OR < PEEK C V+9 > =0)THEN270S 
IF2018THENRETURN 

POKEV+9.0SR=SR+50: IFSR>100THENSR=100 
G0SUB2239:C=PEEKC53278): RETURN 
IFTW+130>TITHENRETURN 

IFV<:210THENFORV=VTOV+12 : POKENO+8.255-V : P0KEV+ 

2./:P0KEV+3.V:NE/T 

POKENO+8.0 •• Tl.J=TI : RETURN 

F0R2=VT0255:POKEV+3.2 : IFPEEK(53279)AND2THENV= 
2 : RETURN 
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2810 

3200 

3205 

4000 

4005 

4010 

4020 

4100 

4110 

4120 

4200 


4201 

4205 

4210 

4300 

4310 

9100 

9110 

9115 

9120 

9130 


9140 

9150 

9160 

9170 

9180 

9190 

50000 


50001 

50002 

50003 

50004 

50005 

50006 

50007 


HEXT: RETURN 
REM RITRRDO 

STOP : FORH= 1 Ti:i40 : NEXT : RETURN 
REM CIMfi DEL MONTE 
FORN=ITO 1000 : ne::::t 

GOSUB4300 : PRI NT " nmv ■' -■ Hfì I '' CONQUI STATO •' L ' EV 


EREST! " ••l.JN=UN+l 

GOTO4200 

REM HfìI PEPSn 

GOSUE4300 : PR ì NT “ ' ■' - " HRI •- ESRURITO •' LE ' FORZE ! " 

PR I NT " 3SW0N '• HR r CONQU I STATO " L -■ EVEREST ! " 

PR I NT " ;tì" : I FfiSTHENPR I NT " SE I •' RIUSCI TO •-1N " WN " SU " 
fìS"SCALATE"; 

IFAS=1THENPRINT"IIR" 

GOSUE9100:IFVNTHEN140 
POKEVIC+21,0 :PRINT": END 
REM SPEGNE TUTTO 

POKEV+9.0 :POKEVL.0 :POKEV+1.0:POKEV+3.0 :POKEV+ 
5,. 0: RETURN 

NO=0 : PR I NT " '■ GIOCHI •- ANCORA? '' SE I ' NO '' 1" 

TM=0:SW=1 

PR I NT " a-' GI OCH I ANCORA? HSI ■■ NO ' H" 


IF TICTM THEN 9150 

PR INTTAE 16+N0if:4 > ; MID^ C " affl". SW. 1 ) ; MI D$ < "'SI NO 
•'".3*N0+1.3). "T' 

SW=3-SW:TM=TI+15 

.JD=PEEK JS > AND31 : JE= < JDC16;;-: JD=JDAND15 
IF JB AND JD=15 THEN VN=';:NO=0> : RETURN 
IF'LJD AND S)=0 AND HO=0 THEN NO=l :GOTO 9110 
IF-;:JD and 4)=0 AND N0=1 THEN NO=0 : GOTO 9110 


GOTO 9120 

DATAo'9.0.0. 51' . 0.0.59.0.0.51.0.3.255.0. 3. 
.3.120.0.3.120.0.2.124.0.0 
DATAI 10.0.0.102.0.0.102.0.0.102.0.0.96 
DATR27.1.8.128.4.65.16.34.148.164.136.68 
4.41.73.14t>. idS. 160.4. 146 


0 


DATAI38.81.41.80.1.1b.128 
DATR30.0.198.64.25.49.140.162.16. 
44.9.210.99.196.89.156.10 
DATA162.36.177.3.103.50.201.12.0. 


214.154.99.1 
204.192 


DATA36.0.0.60.0.3.60.0.1.152.0.1.254.0.0.255. 


0.0.123.0.0.251.0.1.249.0.1 
DATR152.0.3.152.0.0.24.0.0.24 
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50008 DflTfì50.37.155.. 0.109,. 155.0.109. 155.0.109. 155.0 
.108.155. 0 .104.59.0.64.2.0 

50009 DfìTfìl3.162.0.19.88.0.219.210.0.134.205.0.221. 
168.128.215.189.0.46.212 

50010 DflTfì128.118.141.0.52.165.0.19.64.53 

50011 DFlTfì 108.155.0.109.155.0.109.155.0. 109. 155.0.1 
09.155.0.109.155.0.105.27.0 

50012 DfìTfì96.19.0.77.99.0.26.246.0.43.220.0.95.106. 
0.126.245.128.59.239.0.110 

50013 Dl-ÌTR 183.0.127.190.0.58.245.0.22.180 

50014 DFlTfì61.0.0. 0.0.0. 0.0. 0.0.0.0.0. 0.0.0. 0.0.0.0. 
0.0.0.0.0.0.0.0.0.0.0.0.0.0 

50015 riflTfi0. 0.0.254.0.0.254.0.0.254.0.0.254.0.0.12. 
0.0.12.0.0.12.0.0.12.0.0.12 

50016 DfiTfì57.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0. 
0.0.0. 0.0.0.0. 0.0. 0.0.0.0.6 

50017 DfìTR0.0.14.0.0.30.31.255.254.79.255.252.255.2 
55.253.127.127.142.0.63.192 

50018 rifiTfl0. 15.240 

50019 DRTR28.30.0.0.127.0.0.255.128.0.255.128.0.201 
.128.0. { o.0.0.42.0.0.28.0.0 

50020 rifìTR20.0.0.28 

50021 rifìTfì7.243. 0 .0.216.0.0. 248 

50022 DRTfl0 

60000 " : ZT=TI : ZC=2 : Zri$=CHR$<20) 

60010 GETZ$: I fZPCy ""THEH60070 

60020 I FZT<=T ITHEHPRIHTMI D$ C " i-". ZC. 1 ) ; " II" ; ■ ZC==3-ZC 
:ZT=TI+15 
60030 001060010 

60070 z=fìsi:;zi:> :zl=len( c zrhd127><:32Thenpriht 
"••■ ir; :GOTO 60 ii 0 

60090 IFZL>QI THEH60010 

60100 I Ni:= I Hl:+Z$ : PRI NTZl: J ZD# ; Z$ ; 

60110 IFZ=13THENIN$=MIDf CI ÌU .2 >:PRI HJCRti ■RETURN 
60120 I FZ=20RNriZL> 1THEHI H$=LEFTf ( I Nf. ZL-1 > : PR I NT "II" 
;:GOTO60010 

60130 IFZ=141THENZ$=CHRt <-20# C ZL>1> >:F0RZ=2T0ZL:PRI 
NTZ^; ;NEXT:GOTO6000O 
60140 GOTO60010 

61000 CRT= 1024 : VI C=53243 : WD=40 : CRf=CHR$ ( 13 > : S111=542 
72 :JS=56320:CM=55296 
61010 QL=214 : G! I =254 : RETURN 



202 EVEREST 


62000 G0SIJB61000 : POKEVIC+32 > 0 : POKEVIC+33.0 : LH=LEH ( P 
:TB=<40-LH>/2 

62010 PRI NT " nsMtìKna'' TfìB < TB > LEFT$ ■■ ' '' ' •- " -■ " ' ' •- " " ' 

LN> 

62020 PRIMI" a"TflBaE>PGf : PRIMI" a"IfìBaB>LEFIf ( " ' 

62030 PR I MI " mr IRE ( ( 40-LEM < fiUf > > /2 > FlUf 
62040 nB$= " brìi I " REIIJRM PER •-1MIZIRRE " 

62045 IF JFIHEMMS$= " PREM n L •" JOVSIICK ' PER ' IMIZI RRE " 
62050 IB=';;<40-LEM(MS$>)/2> 

62060 PR I MI " WSattk" IRE IB :■ MS$ : PR I MI " WBODSttMilk " " " ' ' 

•' c: C ) ■' 1983 ^ IME " CODE " WORKS " 

62070 GEIIM$: IFIMS<>""IHEM62120 
62080 IF < PEEK C JS > RMD16 =0IHEM62120 
62090 PRIMI"IRBClE)LEFIS■. ". K+1 >L 
EFI$':MSS.Q) 

62100 Q=Q+1 ; I FQ>LEM ( MSS > IHEMQ=0 K= 1 -K 
62110 GOIO62070 

62120 CLR : PR I MI " DT ■ G0SIJE61000 : GOIO100 





Conosciuto anche come Reversi, questo è un vecchio gioco di strategia in¬ 
ventato da un signore inglese nel secolo scorso. Viene giocato su di una 
scacchiera normale (8x8), con 64 pedine double-face, da una parte bian¬ 
che e dall’altra nere. Ogni giocatore, a turno, pone una pedina sulla scac¬ 
chiera e tutte le pedine dell'avversario (di colore opposto) che si trove¬ 
ranno comprese fra due suoi pezzi (uno già esistente da prima e quello 
appena mosso), saranno catturate e cambieranno colore, diventando di 
proprietà del giocatore che ha fatto la mossa. La cattura può avvenire su 
linee verticali, orizzontali e diagonali, anche contemporaneamente. Le 
mosse corrette sono solo quelle che catturano almeno un pezzo dell’av¬ 
versario, ogni altra mossa è illegale. Chiaramente non devono esistere 
spazi vuoti tra le pedine da conquistare e la cattura avviene solo quando 
si pone una nuova pedina sulla scacchiera (quindi se il vostro avversario 
mette un suo pezzo tra due dei vostri, chiaramente non lo perde e voi 
non lo guadagnate). 

All’inizio del gioco vi viene chiesto se volete giocare contro il C-64 o con¬ 
tro un altro giocatore, quindi dovrete scegliere la configurazione di par¬ 
tenza tra le due possibili. 

Una volta che la scacchiera sarà apparsa sullo schermo, ogni giocatore a 
turno dovrà posizionare la sua pedina manovrando la leva del joystick e 
premendo il pulsante quando il cursore (dello stesso colore delle sue pe¬ 
dine) si trova sulla casella scelta; tutti i pezzi avversari catturati cambie¬ 
ranno immediatamente colore. 

Una volta posta sulla tavola, una pedina non può venir spostata anche se 
cambierà colore probabilmente molte volte nel corso della partita; duran¬ 
te il gioco il C-64 mostra, a fianco della scacchiera, il numero dei pezzi 
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posseduti da ciascun giocatore in quel momento. 

Poiché le mosse accettate sono esclusivamente quelle che provocano la 
cattura di qualche pedina avversaria, potrà capitarvi a un certo punto 
del gioco di non avere mosse lecite a disposizione: in questo caso battete 
RETURN e la mossa tornerà all’altro giocatore. 

Othello termina quando la scacchiera è completa e il vincitore è ovvia¬ 
mente il possessore del maggior numero di pedine. 

Anche se il gioco sembra facile e immediato, provate a costruire una 
strategia che preveda più mosse successive: sarebbe eccezionale se arri¬ 
vaste, con una mossa, a catturare delle pedine avversarie lungo le otto di¬ 
rezioni possibili contemporaneamente! 


- CfiRfiTTERI 

SPECIRLI UTILIZ 

ZRTI 



SIMBOLI GRRFICI 

• SHIFT Q 

— 

SHIFT % 

+ 

SHIFT 

■f 

“ COMM T 

r 

COMM R 

-T 

COMM 

R 

T COMM S 

I- 

COMM Q 

H 

COMM 

W 

'■ COMM Z 

JL 

COMM E 

j 

COMM 

V 

^ COMM + 

COMRNDI & COLORI 

SI RVS OH 

■ 

RVS OFF 

A 

HOME 


□ CLERR 


CRSR-D 

n 

CRSR- 

u 

Il CRSR-L 

II 

CRSR-R 

4 

CTRL 

WHT 

■ CTRL BLK 

k. 

CTRL CVH 

ni 

CTRL 

VEL 

» CTRL PUR 

■ I 

■ ■ 

COMM VEL 

n 

CONM 

BLU 


0 PG$= " 0 T H E L L 0 •- " : fllJ$= " D I GLEH •- FISHER " : .JF 
= 1 

1 REM REVERSI — EV GLEH FISHER 



REM COPVRIGHT 
REM BOX 6905. 


<C) 1983 THE CODE WORKS 
SfìNTfi BflRBfìRfl.. CPl 93160 


10 REM fìS OF 1.•••■29/34 GF 

50 REM EDIZIONE ITHLIfiNR:EDIGEO 1984 
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90 

100 


101 


102 


103 


104 

110 

120 

130 

132 

140 

150 

250 

260 

500 

510 

520 

530 

540 


GOTO62000 

DI MED < 9.9 >. JD C15 : WH= 1 : BL=2 : MT=0 ^ POKEVIC+32. 0 
• POKEVIC+33 > 6 

POR I =0TO 15 : RERDJD CI > : HEXT : DflTFl0.0.0.0.0.3.9.6 
.0.1.7.4.0.2.8.5 

DEFFN J C X > - JD < PEEK C JS+X ) RHD15 : DEFFHB < X ) = < PEEK 
CJS+X>RHD16>=0 

FORI=01028 :POKESID+1.0 :HEXT:POKESID+6.240 :POK 
ESID+4.129 
POKESID+24.15 
DIMRCCF^.Ci:-:;?:' 

FORI=0TO?:RERDRC a >.CC(I):HEXTI 
DRTfl-l.-l.-l.0.-1.1.0.1 
DRTRl.1.1.0.1.-1.0.-1 
DIMDC(9 >:FORI = 1T09:RERDDC CI>:HEXTI 
DFìTflb. 5.4.7. — 1. S. 0. 1.2 
GOSIJB4000 

PC$ C MT ) = " " : PCI: ( EL ) = " ^ PC^ < WH > = " TSt " : PC ( MT > = 

6:pca-JH>=i5:pC';:EL>=0 

DIMVLX<7.7>.V<:4) 

v<i:'=2;v>;2>=3: V';:3>=i :V(4::-=4 

FOR I =0TO7 : V=V ( RBS C 3.5-1 > +. 5 /2 

FORJ=0TO7:VLX U.J > =VLX(I.J > +V:HEXTJ 

FORJ=0TO7:VLX(J.I> =VLX(J.I> +V:HEXTJ 


550 HEXTI 
560 G03LIB 4600 


600 

700 

710 

720 

900 

910 

920 

950 


GOSUE 4700 

FORI = 1TOS:FORJ=1TOS:BD <I.J > =0 :HEXTJ.I 
BD(4.4)=l‘JH:BD(4.5>=BL 


BD':5. 


4>=H:BD<5.5>=3-H 
GOSIJB50000 : POKEVIC+39.6 
F0RR=4T05:F0RC=4T05:GOSUB39900 
PRIHTPCÌ < ED < R.C >):HEXTC:HEXTR 
LR=3:HR=6:LC=3:HC=6 ^ R=3:C=3 


1000 M=5 

1010 PR IHT " iSfMBlBlBMtìiSk" : PR I m " W" 

1020 PR IHTTRE ( 7 ;• ; PC$ ( UH ; TRE 32 ) ; PCS- (. EL ; 
1030 UC=2:BC=2 

1040 PRIHT:PRIHTTRE < 6 >;"k";UC; TRE(31>;BC 

2000 PR I MT " ÌSBllJMBMtìjSltlk" : i:;H=0 

2005 GET Jf lF TJ:="Q" THEH 5000 

2010 T=(MRHD1>: IFTTHEH2100 

2020 PR I HTTRE ( 30 ) ; " mm " 
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2025 
2030 
2035 
2040 
2100 
2105 
2110 
2120 
2200 

2210 

2220 

2230 

2240 

2250 

2260 

2300 

2310 

2320 

2330 

2400 

2410 

2430 

2440 

2450 

2500 

2505 

2510 

2520 

2530 

2600 

2620 

3000 

3010 

3100 

3110 

3120 

3130 

3140 

3150 


PL=BL:PLf=PC$c:PL> 

0HHP+1GOSIJE3500.3500.3000 

IFCH>0THEHEC=EC+1 

GOTO2200 

PRiHTTflE';5); ”**.+;*" 

PL=WH:PL$=PC$<PL> 

ONNP+1GOSIJE3500.3000. 3000 
IFCH>0THEHWC=WC+1 

PRIHT " «ifMfMtìtìW!!]'' : PRI NTTflE C 5 ) ; : IF C MfiHD 1 > =0THEH 
PRIHTTRE':30;'; :CH=-CH 
PRIHT" ìllfja’' 

WC=IC:+C;H : Ei:::=EC-CH 

PRlHTTfiE<6) ; "k" ; WG; "II" "TfìB(3l ;■ ; BC; "il" " 

IFCH=0THENSK>SK+1 

IFCH<>0THENSK=0 

ri=M+l 

IFWC+EC=64THEN2500 
IFSK=2THEH2500 
IFWC=0OREC=0THEN2500 
IFi::H=0THEW2000 
I FR<=LRFlHriLR> 1 THEHLR=R-1 
IFR>=HRfìHDHR<STHEHHR=R+1 
IFCOLCRNELO1 THEHLC=C-1 
IFC>=HCflNDHC<STHENHC=C+1 
GOTO2000 
POKEVIC+33.6 

I FWC=BCTHEHPR I HT " SS" . TRE ( 10 ) j " PRRTITR " PRRI. " : G 
OTO2600 

PR I HT " ; TRE C 4 > ; : PL$-= " BIRHCO " 

IFBOUCTHEHPRIHTTRE ( 29 > ; : PLt= " HERO " " 

PRIHT"VIHCITORE":PRIHT"«W" ; TRE < 8 > ; "IL"" ; PL$ ; " 
"VIHCE"LR"PRRTITfì." 

PRIHT:GOSIJE4500: IF VH THEH PRIHT"::]" : GOTO 600 

GOTO5000 

GOSIJB 39800 

RX=6+PC(PL> 

T=RES <; ED ( R. C ) > +1 : PRt^FCS ( PL > 

RV=:6 : TM=0 

IFTI >TMTHEHRV=RK-RV : POKEV11::+39. RV : TM=T I +30 

GETT$ : DR=FH.J03> : T=FHB(0) ^ IFT$=" "RHDDR=5RHDT=0 

THEH3120 

IFTf="Q"THEH5000 

IFDRO5THEH3200 
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3160 IFTTHEN3400 

3170 IFT$=CHR$ <13 > THEHCH=0: RETURN 
3180 GOTO3120 

3200 DR=DC(;riR> IFDR<0THEH3120 
3220 R=R+RC C DR >:C=C+CC < DR > 

3230 IFR<1THENR=8 

3240 IFR>8THENR=1 

3250 IFC<1THENC=8 

3260 IFC>8THENC=1 

3270 GOSIJB39300 : GOTOS100 

3400 IFBD < R. C > <;>r-1TTHEN3120 

3410 P0KEVIC+39,PC(;3”PL;' 

3420 GOSIJB33200 : IFCH=0THENGi:i3IJB39900 : BD-:R. C)=MT : PR 
INT"''ir'; :GOTO3110 
3430 RETURN 

3500 CH=0 : Rri=R cri=c : ric=-1E 20 : 0=0 : POKE V10+39. PC •: PL ) 

3510 FORR=LRTOHR 

3520 FORC=LCTOHC 

3525 GETQf: IFQ$="Q"THEN5000 

3530 IFBD < R. C ) OMTTHEN3610 

3540 GOSUB39800 

3550 GOSUB38000:IFCH=0THEN3610 
3560 CH=CH+VL^<R-1.C-1> 

3570 I FCH=MCTHEN0=0+1 :1FRND ( 1 ) C1 /OTHENRM=R : Cri=C 
3590 I FCH>MCTHENRri=R : CM=C : MC=CH 
3610 NEXTC 
3620 NEXTR 

3800 R=RM:C=Cr'1: IF NC<=0 THEN CH=0: RETURN 
3810 IF ROHR OR COHC THEN POKE VIC+1.0 
3820 POKE VIC+39>PC<3-PL):G0SUE 39800:G0SUE 38200 
3900 RETURN 

4000 SB= 1 3-M64 ■ SP=CRT+1016 

4010 FOR 1=0 TO 13:Fl=SE+33*iI 

4020 POKE fi. 255 ••POKE FU- 1.252 : POKE fi■^2.0 

4030 NEXT I 

4035 FOR I=fi+3 TO SB+63:P0KE 1.0:NEXT 
4040 POKE SP.SB/64:P0KE VIC+1.0:POKE VIC+16.O:POKE 
VIC-H21.1 


4050 POKE VIC-H23.0 : POKE VI C+2S . 0 : POKE VI C-i-27. 1 : POK 


E VIC+-39.14 


4060 RETURN 


4500 NO=0 
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4510 

4520 

4530 

4540 

4550 

4560 

4570 

4580 

4590 

4600 


4610 

4620 

4630 

4640 

4650 

4660 

4670 

4680 

4690 

4700 

4705 


4710 

4715 

4720 

4800 

4810 

4820 

4830 

4840 

4850 

4y60 

4870 

4880 

4890 


TM=0 : SW= 1 : PRI HTTfìB < 10 « IOCHI -- flHCORfl? •- riB I ' 

NO'T' 

IF TICTM THEH 4550 

PR I NTTFlB 25+f]0i*4 >MI D$ . SW. 1 > ; MI ' SI HO 

•■■".3*H0+1.3>.: "H" 

SW=3“SH:TM=TH-15 

jd=peek; (; js fiND31 : jb=jd<; 16 : jd= jriRNH 15 

IF JE RND jri=15 THEH VH=(HCi=0> : I3OSIJB4900 : RETO 
RH 

IFCJD RHD 8>=0 RHD HO=0 THEH Hi:i=l:i30T0 4510 
IFCJD RHD 4>=0 RHD H0=1 THEH HO=0: GOTO 4510 
GOTO 4520 

HP= 1 : PR IHT " k ' QIJRHTE ■- PERSOHEIiiiiiiW- 1 " G 

IOCRHO?:tì" 

TN=0 : SW= 1 : PR I HT " ^ •- ' 0 " M " 2T' 

IF TICTM THEH 4650 

PRIHTTRE C 3+HP*3);HID$ C" sO".SW.1>;HP;" T' 
SW=3-SW:TM=TI+15 

JD=PEEK < JS > RHD31 :JB= < JD< 16)■ JD=JDRHD15 

IF JB RHD JD=15 THEH PRIHTTREC3+HP4i3> HP : 

GOSUE4900:RETURH 

IFCJD RHD 4;)=0 RHD HP>0 THEH HP=HP“l:GOTO 4610 
IFCJD RHD 8)=0 RHD HP<2 THEH HP=HP+1:G0T0 4610 
GOTO 4620 

wf=pi:;$'::wH;'+"iii" : b$=pc$(:el ;•+"«" 

G $=" r~^jegiiiiii Im I»i Iamilih+H)!iiiiii \»\n\ :e!iii 

III! U_L_J^7YTTI|||||m 

PR I HT " prefer i te •' i h i z i rre ■■ cohw 

PR I HT " ••• " n" ; G^ ; " lOii" ; w$ ; E$ ; " aisiiiii" ; w$ ; ; " rx ' 

0 --".; 

PR I HT " 'TH"G$ ; " Ì!>l" ; m ; B$ ; " ;(!ii!!lllli" ; B$m j " TTT 
T' :pRIHTTRB'::2>; 

H=iHT(;RHDa:;'it!2>+i 

TN=0 : SW=1 : PRIHT'ET' J G$; "1" : PRI HTTfìB':HJt«9-7> ; 

IF TICTH THEH 4850 

PR IHTMI Df C " SW. 1 H3f 

SW=3-SW:TM=TI+15 

JD=PEEK(JS)RHD31 :JE=(JD<16):JD=JDRHD15 

IF JB RHD JD=15 THEH PRIHT" d" ; GJ : GOSIJB4900 : RE 

TURH 

IFCJD RHD S)=0 RHD H=1 THEH H=2:G0T0 4810 
IFCJD RHD 4)=0 RHD H=2 THEH H=l:GOTO 4810 
GOTO 4820 
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4900 

4910 

4999 

5000 
38000 
38010 
38020 
38030 
38040 
38200 
38210 
38220 
38230 
38240 
38250 
39000 
39010 
39020 
39030 
39040 
39050 
39070 
39090 
39100 
39110 
39120 
39130 
39132 

39135 

39136 

39137 
39140 
39190 
39800 
39810 
39900 
39910 
39920 


39930 
50000 
50010 
50020 


IF < PEEK JS > AND 16 ) =0THEH4900 

RETURN 

END 

POKE VIC+21.0:PRINT "II":END 
CH=0:FORD=0TO7 
RC=RC'::D> :CC=C:C(D> 

GOSIJB39000 : IFN>0THENCH=CH+N 

NEKTD 

RETURN 

GOSUE39900 : EDCR. C>=PL : PRINTPLtJ "II" 

CH=0 : FORD=0TCi7 
RC=Rcao :cc=cc(:d) 

GOSUB39000:GOSUB39100:IFN>0THENCH=CH+N 

NEXTD 

RETURN 

R0=R; C0=c: REM COUNT 
F0RI=1T08 

R0=R0+RC:C0=C0+CC:BD=ED<R0.C0> 
IFBD=PLTHENN=I-1: RETURN 
IFED=MTTHEN39070 
NEXTI 

N=-l: RETURN 

R0=R:C0=C:IFNCITHENRETURN 
FORI = lTON:REri FLIP 
R=R+RC •• C=C+CC 
BD(R.C>=3-ED'::R.C> 

POKESID+1.32 
GOSUB 39900 
PRINT FLÌ- 
POKESID+1.0 

NEXTI:R=R0:C=C0: RETURN 

2=R2+16*R:IF PEEK-:;VIC+1><>2 THEN POKE VIC+1.0 
POKE VIC.C2+16#C:POKE VIC+1.2 : RETURN 
PRINT"M" 

PRI NTLEFTf C " . 2+R+R ) 

PRI NTLEFT$ c " iniiitikiKttiiiiiiiiiiiPiiiiiiiiii 

liiiitil'MO+C+Oj 

RETURN 

PRINT"ntìMt!n" : TE=11 : R2=23+3#16 : C2==13+TE*8 

PRINTTAE<TB>; " i - i.r r- . .r- - r -- r --i" 

T$=" I ••• I ••• I " I •' I n I I I " : PRINTTRBCTB) ; Tt- 
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50030 

50040 

50050 

60000 

60010 

60020 

60030 

60070 

60090 

60100 

60110 

60120 

60130 

60140 

61000 

61010 

62000 

62010 

62020 

62030 

62040 

62045 

62050 

62060 

62070 

62080 

62090 

62100 

62110 

62120 


POR I --= 1T07 : PRI MITRE TE > ; " f-h—" • PR 
IMITRE-::TE> ; T$ : ME>a i 
PRIMTTfiE-;:TE;-; " i—j---- 
RETIJRM 

IM$="" : ZT=TI ; ZC=2 ; ZD$=CHR$<20> 

GETZ^ : IFZtO" "THEM60070 

I FZT<==T ITHEMPRIMTMI ZC. 1 ) ; " II" . ■ ZC=3-ZC 


:ZT=TI+15 

001060010 

Z=fiSC Zt > : ZL=LEM •: I m : IF ZRMD 127 <32THEMPR IMT 
" :GOTO60ii0 
IFZL>QI THEM60010 
I M$= I m+z$ ■■ PR I HTZt ; zri$ ; z$ ; 

I FZ= 13THEMI M$==M I< I m 2 > : PR I MTCR$ ; : RETURM 
IFZ=20RMDZL>lTHEMIM$=LEFTì:'.: IM$. ZL-1 > : PRIMI "II" 
;:GOTO60010 

IFZ=141THEMZ$=CHR$-^-20*(:ZL>l > > : F0RZ-=2T0ZL : PRI 

MTZ$;:MEKT:GOTO60000 

GOTO60010 

CRT= 1024 ; V10=53248 : l'JD=40 : CR^=CHR$ C 13 : SI D=542 
72 :JS=56320:CM=55296 
QL=214:QI=254:RETURM 

G0SUB61000 : POKEV10+32.0 : POKEV10+33.0 : LM=LEM P 
G$> :TB=-;40-LM)/2 

PR I MT " rieMeauna" tre te > LEFif c " •- •- •' •- •" '• •' '■ ••• •- ■' " " ■- 


^ . LM> 

PR I MT " a" TRE TE > PG$ : PR I MT " 3" TRE •: TE > LEFT$ ' •- " 

.. ^ X / r X / ^ Il ^ ^ 

PR I MT " m" TRE ( 40-LEM •: fm :< > /2 > RlJf 
MS|-= " ERTI I " RETURM " PER •" IMIZIRRE " 

IFJFTHEMMS$="PREMnLMOVSTICK"PER"IMIZIARE" 


TE=-:;40-LEM •:ms$>;;'/2) 

PR IMI " ’fltmk." TRE •: TE > MSf •' PR I MT " WBKttflWClBk'' 

' < 0 > 1983 ^ THE " OODE WORKS " 

GETI Mt : IFI ì\$<> " " THEM62120 

IF PEEK JS > RMD16 =0THEH62129 

PRIMT"TREC TE>LEFTì.. K+1 >L 

eft$':ms$.q> 

Q=Q+1 : IFQ>LEM C MS$ > THEMQ=0:K=1-K 
GOTO62070 

CLR:PRINT"□a":GOSUE61000: GOTO100 




Questo non è un gioco vero e proprio, bensì un modo divertente per stu¬ 
diare una forma alternativa di rappresentazione dei numeri; prima anco¬ 
ra dell’avvento dei calcolatori i coreani inventarono un metodo per fare 
rapidamente i conti che chiamarono Chisanbop. 

Con questo sistema è possibile indicare tutti i numeri da 0 a 99 con le 
due mani: le dita della mano destra valgono uno tranne il pollice che vale 
cinque, quelle della mano sinistra valgono dieci tranne il pollice che vale 
cinquanta. Per indicare un numero basta mostrare le mani e sommare. 
In questa versione abbiamo costretto il C-64 a tirar fuori le mani e vi as¬ 
sicuriamo che è ubbidientissimo: basta chiedergli un numero che questo 
vi verrà mostrato immediatamente! Il programma prevede un menù con 
cinque scelte, che vi saranno proposte all’inizio del gioco. 

1. Fissare le dita in base ai numeri: dovete scegliere quante e quali dita 
mostrare per indicare il numero richiesto dal C-64. Per sistemare le dita 
usate il piccolo puntatore che appare vicino all’estremità delle dita stes¬ 
se, spostando la leva del joystick a destra e a sinistra; per aprire un dito 
dovete spostare la leva in avanti, per chiuderlo dovete invece tirarla ver¬ 
so di voi. Quando siete sicuri della soluzione, premete il pulsante: il C-64 
vi indicherà se la risposta è stata giusta o sbagliata. 

2. Decifrare i numeri mostrati: è esattamente l’inverso del precedente. Il 
C-64 sistema le dita delle mani in modo da mostrare un numero, che voi 
dovete indovinare battendolo sulla tastiera: se sbagliate, il programma vi 
darà la risposta esatta. 
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3. Vedere un numero: vi permette di inserire un numero da tastiera e di 
vedere come questo viene codificato sulle dita dal C-64. È un buon meto¬ 
do per imparare la numerazione Chisanbop. 

4. Contare fino a 99: il C-64 vi mostra la codifica di tutti i numeri, da 0 a 
99. 

La quinta opzione è la fine del gioco. Per interrompere una qualsiasi del¬ 
le opzioni scelte, basterà semplicemente premere RETURN ed il pro¬ 
gramma ritornerà al menù di presentazione. 

- CARATTERI SPECIALI UTILIZZATI 

SIMBOLI GRAFICI 

\ SHIFT M I SHIFT G I SHIFT - 

/ SHIFT N I SHIFT B I SHIFT H 

J SHIFT e r SHIFT £ L SHIFT L 

I COMM M - COMM P COMM W. 

I CONM G ^ COMM + 

COMANDI & COLORI 
E) RVS OH ■ RVS OFF 

CLEAR W CRSR-D 

II CRSR-L II CRSR-R 

k CTRL CVN 1 CTRL PUR 

6 COMM RED 


0 PG|:= " "■ C"0 N •' T ■■■ Fi " : filj$= " DI •- GLEN ' F I SHER " : .JF=^ 1 
1 REM BOP EV GLEN FISHER 

5 REM COPVRIGHT (C; 1933 THE CODE WORKS 

6 REM BOX 6905,. SANTA BARBARA. CA 93160 

10 REM AS OF S,-'16/33 GF 

50 REM EDIZIONE ITALIANA: EDIGEO 1934 

90 GOTO 62000 
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560 

570 

1900 

1010 

1030 

1050 


DIMRCCS.1> JJP(9>.JD<15> 

POR I =0TO 15 : RERIUD < I ) : MEXT : DfìTfl0. 0.0.0.0.3 .■ 9.6 
>0.1 l>7>4>0>i::i>8>5 

DEFFHJ < X > = JD C PEEK ( .JS+X ) RND15 > : DEFFHE t! X = < PEEK 

CJS+X>fìHD16)=0 

FORI=0TO9 : REfìDRC'' I > 0> : HEXTI 

FORI=0TO9:RERDRCa >1):HEXTI 

DRTR 7> 5> 5> 7> 9> 9> 7> 5> 5> 7 

liRTR 9> 12> 13> 16> 17>21 >22..25>26>29 

PTf="\l L-->"\\l I..'-" 

riH$=" leitìaMWBM 

ZER=0 : RH= C RC 4 > 0 > +RC < 5 > 0 > /2+ 1 : CN-( RC C 4 > 1 > +RC 

<5> l>:'/2 

CR$=CHRfa3) 

priht".t; 

PRI NT " :?F-IJO I " SCEGLI ERE TRR •• " : PRI NT 

PRIHT " •' 1 FISSRRE '' LE DI Tfì •-1H ' ERSE •- RI - NUMERI " : 

PRINT 

PR I HT " •' 2 ) ••• DEC IFRRRE ■■ I HUMERI •- MOSTRRT1" : PR I HT 

PR I HT " 3 > '■ VEDERE UH " HUMERO " : PR I HT 

PR I HT " 4 ) •' COHTRRE " FI HO ' R ' 99 " : PR I HT 

PRINT"" 5;-''FI HE" SPRINT 

PR I NT " SCEGL I - COSR " FRRE : " " ; : GOSIJE60000 

IFI H$= " 1 " THEHGi:iSIJE9000 : GOTO 1000 

IFI H$= " 2 " THEHGOSIJBS'000 GOTO3500 

IFI H$= " 3 " THEHGOSI.JE9000 : GOTO3000 

IFI H$= " 4 " THEHGOSIJE9000 : GOTO3700 

IFI N$<> "5"THEHGaTO560 

PRIHT"ntì";EHD 

PR I HT " □SPER FRVORE " ERTTI •- UH -■ NUMERO ■" DR " 1 R " 5. Btì 
GOTO510 

HUM= I NT < RHD11 *99 > +1 : RJ=0 

PR I HT " ÌF I SSfì IL " NUMERO " ; HUM j " II. " 

HF=0 

PR I HT " a".; SPC 1 •+ RC HF > l ) ) ; LEFT$ < DHf > l +RC HF > 0 > 


..' j 

1060 PR IHTMI D$ <; PT$ > 1+HF > 1 j' ; " II" ; 

1100 GETT$: IFTÌO ""THEH500 
1105 IFFHB <: 0 > THEHPRI HT " " " : GOTO 1200 
1110 J=FHJ <: 0 > : I F.J=5THEH 1100 
1115 PRINT ""II".: 

1120 IF.J=4THEHHF=HF-1 : IFHF<0THEHHF=9 
1125 I F.J=6THEHHF=HF+1 : I FHF>9THEHHF==0 
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1130 IFJ=8fìHDIJP ( HF > =0THENGOSUB4000 

1135 IFJ=2fiNDIJPCNF>THEHGOSUB4000 

1160 GOTO1050 

1200 N=0:FORI=3TO0STEP-1 

1210 IFLIP ( I ) =ZERTHEH 1230 

1220 H=N+10:NEKTI 

1230 IFIO0THEN1270 

1240 FORI = ITO0STEP--1 

1250 IFIJP < I > 02ERTHEH1900 

1260 HEXTI 

1270 H=N+50s^flBS ( IJP < 4 ) 02ER > 

1280 F0RI=6T09 

1290 I FLIP ( I ) =2ERTHEH 1310 

1300 H=H+l:HEXTI 

1310 IFI>=9THEN1350 

1320 F0RI=IT09 

1330 I FLIP •; I > 02ERTHEN190Q 

1340 HEXTI 

1350 H=N+5#F!BS UP C 5 ) 02ER > 

1360 IFN=HUriTHEHPRINT"ì»93IUSTO! :GOTO1500 
1370 PRI NT " ;a«HO. " j : GOTO 1500 
1500 PR I NT " • IL ■■■ NUMERO '' INDI ORTO " E ' " ; N" II. " 

1510 FORI=1TO2000:NEKTI 
1520 GOSIJB5500 
1530 GOTO1000 

1900 PR I NT " !«fiJ3IJELLO " NON 'E"' UN " NUMERO ! " : GOTO 1510 
2000 T= I NT <: RND 1 ) if: 1024 > 

2010 FORNF=0TO9 

2030 UP= 1 RNIiT : T= I NT •: T/2 > 

2040 I FIJP NF > OUPTHENGOSUB4000 

2050 NEXTNF 

2060 GOTO2000 

2990 FORI = 1TO1000 :NEXTI 

3000 GOSUB7000 

3010 NUM=NM:IFNM<0THEN500 

3020 GOSLIB6000 

3030 FORNF=0TO9 

3050 I FIJP •: NF > <>F ( NF > THENGOSUB4000 
3060 NEXTNF 

3070 PR I NT •' iì"SPC < CN~ ( NM>9 > ; LEFT$ C IiH$. RN > ; NUM ; " II" " 
3080 GOTO 3000 

3500 NUM= INTCRNDNM=NUM : GOSLIB6000 
3510 FORNF=0TO9 



CONTA 215 


3530 IFIJP < HF > <>F ( HF > THEHGOSIJE4000 
3540 HEXTHF 

3550 GOSUB7000:IFHM<0THEN500 

3560 I FHM=HUMTHEHPR I NT " ÌI8J31 USTO !" ; : GOTO3580 

3570 PRINT"a[PWO. 

3580 PRI NT " ' IL '' NUMERO E " "NUM ; " II. " 

3590 FORI=1TO2000:NEXTI 
3600 GOTO3500 

3700 FORNUM=0TO99:NM=NUM:GOSUE6000 

3701 GETT$: IFT$C>""THEN500 

3705 PR I NT " a" J SPC C CN- < NM>9 ) > ; LEFT$ C BHt -. RH ) ; NUM ; " II-' " 
3710 FORNF=0TO9 

3720 PRINT" a" ;SPC <1+RC C NF.O > J LEFT$ C DN^.1+RC C NF.0 > 

) ; 

3730 IFUP NF > <>F ( NF > THENGOSUE4000 

3740 NEXTNF 

3750 FORI=1TO500:NEKTI 

3760 NEXTNUM 

3770 GOTO 500 

4000 PR I NT " i35" J SPC C1+RC < NF. 1 > > ; LEFT$ DN$, 1+RC < NF.. 0 
) > J 

4010 ONNF+1GOSUB5000.5010.5020.5030.5040.5050.5060 
.5070.5080.5090 
4020 PRINT"13". : RETURN 

5000 PR I NT " liW" ; : I FUP < 0 > THENPRI NT " " IRIBJSU" ; : GOTO5003 

5002 PR I NT " a itPiBJ" ; MI D$ " !'■ ". 1+UP •; 1 >. 1 > ; 

5003 PRINT"irmil"; :UP.::0) = 1--UP<0> 

5005 RETURN 

5010 PRINT-JiM',: 

5011 I FUP ( 1 ) THENPR I NT " •- IW' IDlIelIfl" ; MI Df ■: " J I". 1+UP < 0 > 

. 1 >" J": GOTO5013 

5012 PR I NT " a IW ■KIPII" ; MI D$ C " J-' ". 1+UP C 0 >. 1 ) ; MI C " I 

" .* 1+UP'' 2) j 1 ' j 

50 1 3 PR 1 NT " irrnVi" ; : lip ( i >=i -ijp c i 

5015 RETURN 

5020 PRINT"WPJ"; 

5021 I FUP < 2 > THENPR I NT " ■■ IW" inilPlia" ; MI Df •: " J I". 1+UP C1 ) 

.1);"j";:GOTO5023 

5022 PR I NT " a m ■IfilMII" ; MI D$ C " J ' ". 1+UP C1 >. 1 ; MI D$ " J 
- !'• ". 1+UP < 3 > +2*UP C 4 >. 1 > ; 

5023 PR I NT "imm" ; : UP C 2 > = 1 -UP 2 > 

5025 RETURN 

5030 PR I NT " liW": I FUP C 3 > =0THEN5032 
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5031 PRINT" ^IDlKlia" j M llitC" J \" A + (. UP(2>fìNDUP(4> >. 1 > ; 
" _l" / '■ 00X05033 

5032 PR I NT " à IRlPli" . MI D$ ( " J-J ' " .. 1+IJP ( 2 ) +2*IJP < 4 > 1 > ; 

Il |ll j 

PR I NT " >rTTT' ; : UP ( 3 > = 1 -UP ( 3 > 

RETURN 

PR I NT " l■■■Daa" : I FUP 4 > =0THEN5042 
PR INTMI D$ ( " J-M + < UP < 2 ;■ fìNDUP < 3 Y) A ') ; " 
:GOTO5043 

PR I NTM I ii$ " j . 1+UP 2 >+2ifUP 3 )1 > ; •' ira-' nm' ■ 
nnsnr- ; 

PR I NT " : UP ( 4 :-=1 -UP 4 > 

RETURN 

PR I NT " :!!l8>r' ; : I FUP < 5 ) =0THEN5052 
PR I NT " •' ittì' SL'irrvin" ; m i d$ c " i— m+< up < 6 ;• pndup < 
?Y)A>i ■GOTO 5053 

PR I NT " in ■■■ in" j m i d$ < " lu a +up •: 6 > +2*. 

Ufi?), 1); 

PR I NT :i!le!lll»l" ; : UP ( 5 > -1 -UP < 5 > 

RETURN 
PRINT"IÌK1"J 

I FUP 6 > THENPRI NT " '' IKItì2L" . NI D$ < " U ’M + < UP ( 5 ) fìN 
DUP''7::'>. 1>; :GOTO5063 

PR I NT " a llfiM " ; MI Dt < " LL-" 'M +UP C 5 ) +2i*UP C 7 ). 1 ) J 
PR I NT " lirTnil" ; : up ( 6 > = l -up < 6 > 

RETURN 
PRINT"l!l(tI".; 

I FUP < 7 ) THENPR I NT " IIRI' llBitìa-" J MI D$ " U "A +UP < 8 > 
.1); :GOTO5073 

PR I NT " a ira iraifl" ; m i m >: - u m +up < 5 +2#up < 6 >. i 

);mid$("L-m+up(s>. i;;-; 

PR I NT " lirrTm" ; : up < 7 > = i -up < 7 > 

RETURN 
PRINT")!li!!]"; 

I FUP < 8 > THENPR I NT " " lltì-' IItìSia_" ; MI D$ C " U ’M +UP ( 9 ) 
A);- ■ GOTO5083 

PRINT " a ira IDOtì" J MID$':: "I •' ". 1+UP<7> A)i MID$< "L 
1+UP<9>. 1); 

PR I NT " linTrm" ; : up c s >=i -up c 8 > 

RETURN 
PRINT" !■[«"; 

I FUP ( 9 > THENPR I NT " ^ llSWa_" ; : GOTO5093 
PR I NT " a IIiìW" ; MI < " I '"A +UP (S') A') i 
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5093 PRI NT " irm- ; : UP < 9 > = 1 -UP < 9 > 

5095 RETURN 
5500 PRIHT"«li"; 

5510 FORI 1 = 1T03 

55^0 PPI NT ** ^ ‘ ^ *■’ '** '** ■'* ■*’ ■** ^ •** •'* •*' ^ •** •*' •*' 

/ Il 

5530 NEXTII 

5540 PRIHT"i:r; : RETURN 

6000 REM 

6010 FORI=0TO9:Fa)=ZER:NEXTI 

6020 T= I NT < NM/5 > : N=NM-5*T : Nri=T 

6030 IFN>0THENFORI=6TO 5+N:F<I>=1-F<I>:NEXT I 

6040 T=I NT C NM/2 ) : N=Nr'1-2*T : Nr'1=T 

6050 IFNTHENF(5> = 1-F(:5> 

6060 T= I NT C Nri/5 > : N=NM-5:-KT : Nr-1=T 

6070 IFN>0THENFORI=3T04-NSTEP-1 :F CI) = 1-F <I>:NEHTI 
6080 T=I NT C NN/2 ) : N=NM-23KT : Nr'1=T 
6090 IFNTHENF':4> = 1-F<4> 

6100 RETURN 
7000 GOSUB5500 

7100 PRINT" SFUMERÒ?""; :GOSUE60000 
7105 IFIN$=""THENNM=-1 : RETURN 
7110 IFIN$=""THEN7300 
7120 Z=0:FORI = 1TOLEN <IN$ > 

7130 :T^=riIDìaN$. I, 1> : IFT$="-"THEN7160 

7135 :1FT$>="0"fiNDT$<="9"THENZ=Z+1 :G0T07160 

7140 IFTf=". "THENPRINT"SWnENTE"DECIMRLI.GRAZIE.": 

GOTO7310 
7150 GOTO7300 
7160 NEXTI •• IFZ=0THEN7300 
7170 NM=VRLaN$) 

7180 I FNH<:0THENPR I NT " ÌSUTTROPPO •' PICCOLO. " : GOTO 7310 
7190 IFNM>99THEN PRINT"SaSTTROPPO"GRANDE. GOTO 7310 
7200 RETURN 

7300 PR I NT " jatìQUESTO " NON " E ' ■- UN ' NUMERO. " 

7310 FORI=1TO1000-NEXTI 
7320 GOTO7000 

9000 PR I NT " . 

9010 PRINT":» I lll[« I I I IIIIIH IMI"; 

9020 PRINT"liMIW- MMMm-'- ' WW" i 
9030 PRINT "mMMMWS' ^ i 

9040 PRINT 

9050 PRINT "rniiiriiiiikiiiiiir'; 
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9060 PRIHT "U I IIIKl I I I lllim IN"; 

9070 PRIHT "IIIID!] 

9080 PRIHT 
9090 PRIHT 

9100 POR 11=0 TO 9:lJP<ID = l :HEXT II 
9110 RETURH 

60000 I m= " " : 2T=T I : ZC=2 : 2D$=CHR1: < 20 ) 

60010 GETZ$ I FZfO " " THEH60070 

60020 IFZT<=TITHEHPRIHTMID$( " 'W '. ZC.. 1 > J "11" J : ZC=3-ZC 
:ZT=TI+15 
60030 GOTO60010 

60070 Z=flSC C Z$ > : ZL=LEH ( I H$ ) : IF < ZRHD127 > <:32THEHPR IHT 

"•'ir; :Gi:iTO60ii0 

60090 IFZL>QI THEH60010 

60100 I m= I H-|:+Z$ : PRI HTZ$ ; ZDf ; 2$ ; 

60110 IFZ= 13THEHIH$=MI Ii$<. - PRIHTCR$; : RETURH 

60120 I FZ=20FlHDZL> 1THEHIH^=LEFT$ ( I H$. ZL-1 ) : PR I HT " II" 
;:GOTO60010 

60130 IF2=141THEHZ$=C;HR$C-20*<ZL>1>> :F0RZ=2T0ZL:PRI 
HTZ$;:HEXT:GOTO60000 
60140 GOTO60010 

61000 CRT=1324 VIC=53248 : WD=40 : CR$=CHR$(: 13) : SID=542 
72 :JS=56320:CM=55296 
61010 QL=214 QI =254 : RETURH 

62000 G0SUE6 1 000 : POKEV I C+32.0 : POKEV I C+33.0 : LH=LEH P 
G$>:TB=(40-LH)/2 

62010 PR I HT " :i8MPi«na" tre < TE > LEFT^ < " -■ ^" 

62020 PR I HT " a" TRE < TE > PG$ : PR I HT " 3" TRE ( TE > LEFTif < " ^ ^ 

.' / / / / .<* .*• / / / .• / ✓ / .*• M ^ 

62030 PRIHT" m "TRE < < 40~LEH(flU$)>/2 > RU^ 

62040 t1S $-" ERTTI " RETURH '' PER -■ IHIZIRRE " 

62045 IFJFTHEHriS$="PREr-inL^JOVSTICK'PER' IHIZIRRE" 
62050 TE= < < 40-LEH < tlSt- ) > /2 > 

62060 PR I HT " MSWWk" TRE ( TE > MSt : PR I HT " WBltìMfiDSlsA^' •- 

■' ( C > •' 1983 '■ THE CODE " WORKS " 

62070 GETIH^ : IFIH$O""THEH62120 
62080 IF(PEEK < JS > RHD16 > =0THEH62120 
62090 PR I HT " TRE < TE ) LEFTf < " ik". K+1 > L 

EFT$<MS$.Q> 

62100 Q=Q+1:1 FQ>LEH •' MS$ ) THEHQ=0 ; K= 1 -K 
62110 GOTO62070 

62120 CLR : PR I HT " .la" : G0SUB61000 : GOTO 100 




Spot è una versione un po’ elaborata di Tris, il classico gioco a due in cui 
bisogna allineare tre segni in fila per vincere. Qui dovete invece allineare 
quattro quadrati, lungo una linea orizzontale, verticale o diagonale, ma 
non è possibile piazzare il proprio simbolo dove si vuole; una volta scelta 
la colonna infatti il quadrato del vostro colore sarà messo automatica- 
mente nella riga più bassa possibile, sopra all’ultimo posizionato in pre¬ 
cedenza (non importa da chi). Quindi, se pensate che vi serva un quadrato 
nella terza cella della prima colonna, dovrete prima riempire le prime 
due celle, sempre che non lo siano già. Attenzione però a costruire le co¬ 
lonne: potrebbero essere utili al vostro avversario! 

I due giocatori sono indicati rispettivamente in verde e in giallo, e il C-64 
vi dirà quando è il vostro turno; a quel punto basterà battere sulla tastie¬ 
ra il numero della colonna scelta ed il vostro quadrato sarà posizionato 
automaticamente. 

Al momento della vittoria il C-64 farà lampeggiare i quattro quadrati vin¬ 
centi. 
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SIMBOLI GRAFICI 
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PGf = "S•'P0■'T" :RIJ$= "DI' RRT•'CfìRPET" 
REM SPOT — BV RRT CRRPET 

REM COPYRIGHT 1983 THE CODE WORKS 
REM BOX 6905. SRHTR ERRERRR. CR 93160 


REM RS OF 8/11/83 GF 

REM EDIZIONE ITRLIRHR:EDIGEO 1984 

GOTO62000 

Il / / .*•/*// / / / /• .•*//•// .•* y y y y y y y y y y 

:GOSIJB1340 

v=0 : PRI NT " 3SD!k" •' '• ••• •' '■ ••• 1 2 •' 3 •- " 4 ' • 

ìT y y y “? 

Q I 

li *' I I 1——i. M—^ j j . 

B$="•'••• '• ••• •-'■ 1 r '■ '• I'■ '■ '• I'• I•-••• I•-'• \ -" 

C$=" I-1- \ -1-1- \ -1- 

i)$= ••• ••• ^ I_I_I_I_I_1_ I- — 

PRIHTR$:FORT=1T05:PRINTE$:PRINTE$:PRIHTC$: 
PRIHTBf:PRIHTB$:PRIHTDf:IFGfl<>0THEH290 
DIMfl<7.6).E(42) 

loiiir ^ se" : R$ < 2 >='• m' •- " giMMi •- ' 


NEXT 
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F0RT=11042 :REflDZ:ECT>=Z+32768:NEKT 

GR= 1 : F0RT= 1T06 : F0RV= 1TO? : V=V+1 : fì ( V. T > =B (. V ) : NE 

XT:HEXT:V=0 

X= I NT < RHD C T n #2+1 > : fìT==0 
J=0 : POKEQL. 24 : PRINT"T' ; BLt- 
GOSIJB2000 

POKEQL. 20 : PRI NT " miil" ; fi$ C X ; " iBltì" : PRI NT " DOVE M 
UOVE-'"N$(X); : 

G0SIJB2100 : I FR$=- " G! " THENPRI NT " : END 

IFVRL ( R$ X1ORVRL R$ ) >7THEN340 

PR I NT : POKEQL.. 24 : PR I NT " ; BLt ■ POKEQL. 20 : PR I NT " 

T'iflitCS) 

M=--VRL';:Rtj' 

F0RT=1T06 

IFR<r-LT)<9THENJ=J+l 
IFJ=6THEN310 
NEXT:J=0 
RT=RT+1 

F0RT=6T01STEP--1 

IFRai.T>>3THEN470 

NEXT 

V=ri*4+7 : H=T*3+2 
F0RK=1T02:TN==TI 
POKEQL. H : PR I NT " H" TRE < V ;■ fì$ ( X ) 

IFTI<TW+10THEN500 

POKEQL. H : PR I NT *' T'TRE < V ;• R$ ( 3 ) 

IFTI<TW+20THEN520 

NEXT : POKEQL . H : PR I NT " T'TRE C V > ( X ) 

R<ri.T>=Xt3 

REM CONTROLLR VINCITA OR 
F0RC=1T04 

I FR (J .• T ) +R C L’+1 j T +R c. iJ+2 j T .!• +R L'+C j T .) =4if X Tà ) TH 
EN590 

NEXT:GOTO640 

ri(:i)=C:TCl>=T 

riC2>=C+l :TC2>=T 

ri(3>=C+2:T(3)=T 

ri(4>=c+3:T(;4:-^=T 

GOTO950 

REM VINCITA VERT 
F0RC=1T03 

IFR<ri> C> +R<hL C+1 ) +RM. C+2) +R<N, C+3-=4*CX 13)TH 
EN680 
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1020 

1030 

1036 

1040 


HEKT : 13010730 

r'1'::i)=M:T(l)=C 

rK2)=M:T'::2;'=C+l 

r-K3)=M:T<3:'=C+2 

ri'::4>=M:T'.':4)“C+3 

GOTO950 

REM S fl D DIfìG? 

F0RK=1T04 

F0RC=6T04STEP--1 

IFFI(K. C) +R(K+1. C-1 > +RtK+2. C-2) +R(K+3. C-3) =4.+:( 

Xt3>THEN730 

HEXT:HEXT:GOTO330 

M';:i)==K;Ta)=c 

M<2>=K+1:T<2)=C-1 

ri(3>=K+2:T<3>=C-2 

ri<4>=K+3:T<4>=i:;~3 

GOTO950 

REM CHECK D R S DIRG 

F0RK=7T04STEP-1 

F0RC=6T04STEP-1 

IFfl(K.C > +R(K-1.C-1> +R C K-2.C-2 > +R < K-3.C-3 > =4* < 

X13OTHEN830 

HEXT : HE:=^T : GOTO930 

MCn=K:T(n=C 

M(;2>=K-i :T(;2:'==c-i 

M';:3>=K-2:T<3>=C-2 

M<4)=K-3:T(4)=:C-3 

GOTO950 

IFfiT=42THEH1036 

X=3-X:GOTO310 

POKEQL. 23 : PRI NT " T* ; TRE U 0 > N$ < X )" •' E ' IL ' VIHCITO 
RE! " 

F0RI=1T05 
F0R2=1T04 
M=M<2> :T=T(:2> 

V=Mif4+7 •• H=Ti<s3+2 

POKEQL. H : PR IHT " H" TRE V ) R$ ( 3 > 

FORP=1TO100:HEXT 

POKEQL. H : PR I NT " .1" TRE ( V > m (. X ) 

NEXT:NEXT: GOTO1040 
POKEQL.23 :PRINT" r^TRLLOI" 

POKEQL. 24 : PR I NT " nPlBlfiTv'UO 1" GIOCRRE " RNCORR? " ; : V= 
0 :GOSUE60000 
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1050 IFLEFTt CI H$, 1> <>"H"THEHGfì=1 :PRINT": GOTO190 
1060 PRIHT":i«M" :END 


1080 DfiTRl?!.175.179.183.187.191.195.291.295.299.3 
03.307.311.315.411.415 

1090 DFlTfl419.423.427.431.435.531.535.539.543.547.5 
51.555.651.655.659.663 

1100 DfiTfi667.671.675.771.775.779.783.787.791.795 
1340 PR I NT " neliSlSUOME " DEL " PR I NO ^ GIOCRTORE? ; •• G0SIJE6 
0000:N$<1>=IN$ 


134J 


IFIN^ = " " THENNt < 1 == " PR I NO ' " : PR INTTRE < 21 > ; " T’ ; N 
$(.!) 


1350 PR I NT " JlfUOME -■ DEL •- SECONDO •' GI OCRTORE? : G0SIJE6 

0000:N|:':2> = IN$ 

1355 IF imO"" THEN RETURN 

1360 N$(2 > = "SECONDO":PRINT TRE(21);" T' ; ÌU (2):FOR I 
:=! TO 500 :NENT: RETURN 
2000 GET2$'IF2$<>""THEN2000 
2010 RETURN 
2100 2T=TI:2C=2 
2110 GETR$ : IFR$ 0 " "THEN2140 

2120 I F2T<=T ITHENPRINTMI H$ ( " •- ? ". 2C. 1 > ; " II" ; : 2C=3-2C 
:2T=TI+15 
2130 GOTO2110 
2140 RETURN 


60000 im=" " : 2 T=TI : 2 C =2 : 2 Df=CHRf ( 20 ) 

60010 GET 2 $: I FZt<y ""THEN 60070 

60020 IF 2 TOTI THENPR I NTM I D$ ( " •- . 2 C 1 ) ; " II" ; •• 2 C= 3 - 2 C 

• 2 T=TI +15 
60030 GOTO 60010 

60070 2 =fiSC ( ) : 2 L^=LEN ( I N$ ) : IF ( 2 RND 127 ) •C 32 THENPRI NT 

" -II"; :GOTO 60110 
60090 IF 2 L>QI THEN 60010 
60100 IN$=IN$+ 2 $:PRINT 2 $; 2 D$; Z $; 

60110 I F 2 = 13 THENI N$=--M I Df ( I Nt. 2 ) : PR I NTCR$ ; : RETURN 
60120 I F 2 = 20 flND 2 L> 1 THEN I Nf=LEFTt ( I N$. 2 L~ 1 ) ; PR I NT " II" 
; -GOTOE'GGIG 


60130 I F2= 141 THEN2$=i:;HR$ ( -2m ( 2L> 1 ) ) •• F0R2=2T02L : PR I 
NT2t; :NEKT:GOTO60000 
60140 GOTO60010 

61000 CRT= 1024 : VI C=53243 : WD==40 : CR$=CHR$ ( 13 ) : SI D=542 
72 :JS=56320:CM=55296 
61010 QL=214 ;QI=254 : RETURN 
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G0SIJE61000 : POKEVIC+32.0 : POKEVIC+33.0 : LH=LEN C P 
G$> :TE=':40-LN>/2 

PRINT "TflBCTE>LEFT$ v " " •- " •- " " ' -■ •- '' ' •- " 

^ LN> 

PR I NT " a" TRE C TE > PGì: : PR I NT " 3" TRE v TE LEFT$ < " - " ' 

........ . .. . . . ..... ^ 

PR I NT " m" TRE < ( 40-LEN ( fiLI$ ) /2 :• RIJ$ 
riS|:= " ERTTI RETURN •' PER INIZI RRE " 

IF JFTHENMS$= " PREM I " IL •• JO VSTICK •• PER ■'INIZI ARE " 
TE=<C40-LEN<MS$>>/2> 

PR I NT " WtìMBk" TRE ( TE > MS$ : PR I NT " PlBlSisMilIek'' '' -• •' " ■- •- 
■' ( C ; 1983 '■ THE '■ CODE ^ WORKS " 

GETI N$ : IFI mo " " THEN62120 

IF PEEK < JS > RND16 ) =0THEN62120 

PR I NT " tre <; te > left$ < k+ i > l 

EFT$a'1£$.Q> 

Q=Q+1 : IFQ>LEN(:MSf>THENQ=0:K=l-K 
GOTO62070 


621 20 CLR : PR I NT " nal" : G0SIJE61 000 : GOTO 1 00 


Puntocroce 

(joystick) 



Anche questa è una versione un po’ più complessa di un gioco a cui tutti 
hanno giocato su un pezzetto di carta, un momento o un altro. 

La partita si svolge tra voi e il C-64, che disegna sul video una griglia di 
36 quadrati (6x6), in cui appaiono all’inizio solamente i vertici di ciascun 
quadratino (sotto forma di crocette). A turno occorre collegare le crocette 
con una linea — orizzontale o verticale — ciascuna delle quali va a for¬ 
mare un lato di un quadratino. Quando un giocatore riesce con la sua 
mossa a chiudere un quadrato, vi inserisce il suo simbolo ed ha diritto a 
un’altra mossa. 

Il C-64 segnerà con una "O” i vostri quadrati e con una "X” i suoi; la 
partita termina quando tutti i quadratini sono stati chiusi (e quindi con¬ 
tengono una O o una X) e il vincitore è il possessore del maggior numero 
di quadrati. 

Per segnalare la linea che volete tracciare, utilizzate la leva del joystick 
spostando un cursore lampeggiante (che occupa lo spazio della linea) fino 
alla posizione scelta, quindi premete il pulsante. Per passare da linee ver¬ 
ticali a orizzontali e viceversa, basterà spostare la leva in diagonale. 
Durante il turno del C-64, sotto la griglia apparirà una sinuosa onda sen¬ 
za fine ad indicare che sta pensando e che non si è dimenticato di voi... 
Se lo desiderate, potete modificare le dimensioni della griglia agendo sul¬ 
la linea 130: RS è il numero delle righe e CS quello delle colonne, che in 
ogni caso non possono superare rispettivamente le dimensioni 11x19. Ri¬ 
cordate che più grande è la tavola, più tempo occorrerà al C-64 per ese¬ 
guire le proprie mosse. 
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0 PG$= - ••• p ^ U T ••• 0 C R 0 '■ C E " : AU$= "DI-’ GLEN •- FISH 

ER":JF=1 

1 REM DOTS — BV GLEN FISHER 
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REM COPYRIGHT <.C) 1983 THE CODE WORKS 
REM BOX 6905. SANTA BARBARA. CA 93160 


REM AS OF 8/11/83 GF 

REM EDIZIONE ITALIANA : EDIGEO 1984 

GOTO62000 

POKE VIC+32.6 : POKE VIC+33.6 : DIM JD < 15 

POR I =0TO 15 : READJD (.1? ■ NE/T : DATA0. 0. 0.0. 0. 3.9. 6 

.0. l.Z.4.0.2.8.5 

JS=56320 : DEFFNJ / > =.JD ( PEEK ( JS+X > AND 15 > : DEFFNB 
•: / > = ( PEEK < JS+/ ;■ AND 16 > =0 
T=RND':;-TI ) 

TBA=0 •• HZ=1 : VT=:2 : HU=1 : C0=2 
RS=6 : CS=6 : SQ=RSi+!CS 
RF=11-RS:CF=19-CS 
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200 R=RS+2 : C=CS+2 : DIMLC < R.. C >. VH < R. C >. RT ( 4.4 > 

210 T=RHD<-TI> 

220 POR I =0TO3 : FORJ=0TO3 : REFiDRT ( I > J ) : HEXTJ : HEXTI 
230 DfiTfi3.4.2.6.4.5.1.7.2,. 1.0.8.6.7.8.9 
240 n I ris V a > : sv c 0 > =0 : sv < 1 >=1 

250 Q$="----—" : Qì:=Q$+Q$ : Q$=Q$+Qi: 

260 FOR I = 1109 : REFIDRM CI >. CM ( I > : HEXTI 
r' 0 DfìT fìl.~l.,:i.0. 1. 1.0. ""ci .0.0.0.2.“~1.'“1.“2.0.“1. 1 
280 GOSUB 2000 
900 GOSIJB7000 


910 PL=HU : SV < 0 ) =0 : SV 1 ) = 1 
990 IFPL=HIJTHEHGOSUB1500 ' GOTO1010 
1000 GOSUB5000 
1010 GOSIJB5500 •• GOSUB5600 
1020 GOSUB5S00:IFH=0THENPL=3-PL 
1030 IFSQ>0THEN990 
1040 IFHQ>CQTHEN1070 
1050 IFHQ=CQTHEH1080 

1060 PRIHT " »v‘ IHCO CON ' " ; CQ ; " QURDRfìT I •- CONTRO ^ ; HQ ; : 
GOTOl100 

1070 PR I NT " »/1 NO I TU •- CON " ; HQ ; " QURDRfiT I •- CONTRO ■' " ; CQ 
J :GOTOl100 

1080 PR I NT " «SIRMO ^ PRRI CONM" ; HQ ; " QURDRRTlOGNUNO " ; 
1100 PRINT"II. " 

1105 PRINT" ^^ ••• ^ ^ ^ -'T- 

1110 PRINT"GIOCHI RNCORR'? -"; :GOSUE60000:T$=IN$ 

1120 IFLEFTfaf. 1> = "S"THEN1200 

11301 FLEFTf •; Tt. 1 ) <> " N " THENPRI NT " H" ; : GOTO 1105 

1140 END 


1200 FOR I =0TORS+2 : FOR.J=0TOCS+2 : LC CI. .J ) =0 : VH CI. ..T > =0 
:NEXTJ:NEXTI 
1210 SQ=RSi*!CS : CQ=0 : HQ=0 
1290 GOTO900 

1500 R=SV ( 0 ) : C=SV •: 1 > : TM=0 : SW= 1 : DL=0 

1510 GOSUB9000:GOSUB 9100 

1525 T=FNJ<0) : IFT=5THENDL=0 : GOTO 15.35 

1530 IFTDDLTHEN1600 

1535 IFFNB < 0 > THENPOKEVIC+39.6 : GOTO1700 

1540 GETT$:IFT^="Q"THEN 1800 

1545 IF TICTM THEN 1525 

1550 POKE VIC+39..SW 

1560 TM=T1 + 15:SW=7"SW: GOTO1525 

1600 DL=T 1 + 15: si.J= 1 : Tri=0 
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1610 R=R+RM (j y- C=C+CM C T > 

1 620 I FR<0ORR>25^RSORC<0ORC>2#C£THEHR=R-Rri < T > : C=C-C 
MCT) 

1630 IF FHBC0>=0 THEH 1510 
1700 REM 

1710 ROW=IHT < R/2) +1 :COL=INT C C/2) +1 

1720 V= < RflND n •• H= 1 -V : DI R=HZ : IFVTHENDI R=VT 

1730 IFVH ( ROW. COL ) RND VT3fV+HZs^H > THEH 1530 

1740 S V C 0 )=R:S V C1)=C : POKEV I C+1 . 0 

1750 RETURN 

1800 POKE VIC+21.0 

1810 PRI NT " ìmmmmmmmmmmm'' ; 

1820 END 

2000 SP=CRT+1016 : R0=49+8*RF C0=23+Si*CF 
2010 SB=13!ts64 

2020 FOR I=0TO127:POKE SB+I.0:NEXT 

2030 FOR I=9TO20:REFID T:P0KE SB+I.TNOT 

2040 FOR I=0TO27 STEP 3:READ T:POKE SB+64+I.T: NE/T 

2050 DRTfì 255.192.0.0.0.0.0.0.0.255,192.0 

2060 DRTR 18.18.18.18.18.18.18.18.18.18 

2070 POKEVIC.0:POKE VIC+39.1 

2080 POKE VIC+21.1 

2090 RETURN 

5000 M/=-1 :nIR=TBR:ROW=COL=-1 

5005 R=2i4?RS+l :C=0 

5010 F0RI=1T0RS 

5020 F0RJ=1T0CS+1 

5025 GOSUE5200 

5030 IFVH <I.J)RNDVTTHEN5070 

5040 F=RT ( LC •: I. J-1 >. LC CI. J :• > 

5050 IFFCM/OR C F=M/RNDRND <1 ».5 > THEN5070 

5060 DIR=VT:M/=F:R0W=I :COL=J 

5070 NEXTJ 

5080 NEXTI 

5110 F0RI=1T0RS+1 

5120 F0RJ=1T0CS 

5125 GOSUB5200 

51301FVH CI.J)RHDHZTHEN5170 

5140 F=RTaC(: I-l. J>. LC< I. J> > 

51501FFCMXOR C F=MXRNDRND ( 1 ». 5 THEN5170 
5160 DIR=HZ:MX=F:ROW=I :COL=J 
5170 NEXTJ 
5180 NEXTI 
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51S5 GOSIJE9000 : PRIHT " •' '■ '' •- '■ ' •' - •' - ■' '' ' ■' ' 

X .*• / / / / / y y 11 • 

5190 RETURN 

5200 GOSIJB9000 PR I NTLEFT$ ( Q$. 2ifCS+1 >. 

5210 Q$=ri I D$ < Q$. 2.255 > +LEFT$ < Q$. 1 > 

5220 RETURN 
5390 : 

5400 TJ=TI+DL 
5410 IFTiaJTHEN5410 
5420 RETURN 
5490 : 

5500 LC ROW. COL > ^LC ( ROW. COL ) +1 

5510 IFriIR<:>H2THEN5540 

5520 LC < ROW-1. COL > =LC ROW-1. COL > +1 

5530 VH C ROW.COL > =VH(ROW.COL > ORHZ: RETURN 

5540 LC■:ROW. COL-1 ) =LC<ROW. COL-1 > +1 

5550 VH <: ROW. COL > = VH ( ROW. COL > ORVT : RETURN 

5590 : 

5600 R= < ROW-1 > *2 : C= •; COL-1 > *2 
5605 IF ( RFIND1 ; OR ( CHND11- THENSTOP 
5610 GOSUB9000 

5620 T$= " a I " : IFDI R=HZTHENT$= " >1-’' 

5630 PRINTT$;•IFPL=HUTHENRETURN 

5640 DL=5:FORQQ=0TO6 

5650 GOSUE5400 : PR I NT " II" " J 

5660 GOSUB5400 : PR I NT " II" ; RI GHT$ Tt A >i 

5670 NEXTQQ: RETURN 

5690 : 

5700 R=R*'2-1 :C=i:::f2-l :GOSUB9000 
5710 SQ=SQ-1 

5720 I FPL=HUTHENPR I NT " 3" J •• HQ=HQ+1 : RETURN 

5730 PRINT" J :CQ=CQ+1 : RETURN 

5790 : 

5800 N=0 

5810 R=ROW : C=COL •• GOSUB5900 
5820 R=ROW-l:C-COL:GOSUB5900 
5830 R=ROW:C=COL-l:GOSUB5900 
5840 RETURN 
5890 : 

5900 IFLC R. C > O40RVH ( R. C AND 12THENRETURN 
5910 VH < R. C > = VH R. C ) OR 12i*iPL : N=N+1 
5920 GOSUB5700 RETURN 
5990 : 
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6000 print".t; 

6010 POR I = 1TOCS : PRI NT " -r ' " J : HEXTI : PRI NT " -i " 

6020 PRINT"nrW" 

6030 F0RJ=2T0RS 

6040 F0RI = 1T0CS-PRINT"4""J : NEXTTPRINT'H " 

6050 PRINT'TW 
6060 NEXTJ 

6070 F0RI = 1T0CS 'PRINT"-^''"; :NEXTI :PRINT"-'" 

60S0 PRiNT"nsa"; 

6090 RETURN 
6900 END 

7000 PRINT "D" ■■Lt=" r'" ■■ R$= ": M$= "-r" " 

7010 FORI =2T0RS •• L$=L$+ " }■' " : R$=R$+ "H " " : M|:=f1ì:+ "-f: N 
EXTI 

7020 Lt=L$+" " : R$=R$+''-^' " 

7030 FORR:=0TO2*RSSTEP2 

7040 C=0 : GOSIJB9000 : PR INTMI Df < L$ > R+1.2 ) ; 

7050 FCiRC=2T02*CS-2STEP2 : PR INTMI D$ < Nt. R+1.2 ) ; : NEXTC 
7060 PRINTMID$<R$.R+1,1) 

7070 NEXTR 
7080 RETURN 
8990 : 

9000 PRINT"a"J :R=R+RF:C=C+CF 

9010 IFRTHENPRI NTLEFTf ( " mmmmmmam!(mgmma", 

R) À 

9020 IF'CTHENPR1NTLEFT$ <" »iiiiiiiiiiiiiitiiiii>iii 

liiiiiiiiiiiiir.C); 

9030 R=R-RF •• C=C-CF 
9040 RETURN 

9100 POKE VIC.C0+8i^C:POKE VIC+1. R0+S5KR 
9120 POKE SP.14-<CRND1> 

9130 RETURN 

50000 PRINT"MBflTTI" SRETURNS"PER ^ CONTINUfiRE:'" 

50010- GETZ$:IF2J=""THEN50010 
50020 RETURN 

60000 I N$= " " " 2T=:T 1: 2C=2 : ZDf=CHR|: < 20 > 

60010 GETZ$ : I FZ$C> ’• " THEN60070 

60020 IF2T<=TITHENPRINTr'1ID$<:"'r*.ZC. 1>; "ir; :2C=3-ZC 
:ZT=TI+15 
60030 GOTO60010 

60070 2=fiSC C Zt- > : ZL=LEN ( I N:J > : IF ( ZfìND 127 > <32THENPR I NT 
"'ir; :GOTO60110 
60090 IFZL>QI THEN60010 
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60100 I H$= I m+Z$ ■■ PRI HTZì: ZBt ; Z$ 

60110 I F2= 13THEHI H$=ri I D$ U N$. 2 > : PR I HTCR:J J : RETURN 
60120 IF2=20fiNDZL>lTHENIH$=LEFT|:( IN$.. ZL-1 ) : PRIHT"II" 
j mZìOTO60010 

60130 IF2=141THENZ$=CHR$(;-204i';:ZL>l > > : F0RZ=2T0ZL : PRI 
HTZ$; :NEJ<T:GOTO60000 
60140 GOTO60010 

61000 CRT= 1024 : VI C=53248 : Wri=40 : CR$=CHRt C13 > : SI D=542 
72 :JS=56320:CM=55296 
61010 QL=214 :QI=254 : RETURN 

62000 G0SUB61000 :POKEVIC+32.0 :POKEVIC+33.0 :LN=LEN < P 
G$):TB=(40~LN>/2 

62010 PRI NT " ZKMdBliia" TRE ( JE ) LEFT$ •- ' 

' ln;;- 

62020 PRINT" a"TRETE )PG$ : PR INT" 3"TRE( TE>LEFT$C " ^ " 

62030 PR I NT " Wtì" TRÉ ■: ( 40-LEN RU$ ) > /2 > RU$ 

62040 riS$= " BRTTI " RETURN " PER "INIZI RRE " 

62045 IFJFTHENf1St="PREMI " IL" JOVSTICK"PER" INIZIfiRE" 
62050 TE= < •: 40-LEN MS$ ) > /2 ;• 

62060 PR I NT " MUlWlIk" TRE ( TE > MS$ : PR I NT " 

< C > " 1983 " THE " CODE ' WORKS " 

62070 GETIN$:IFIN$C>""THEN62120 
62080 IF < PEEK < JS)RND16 > =0THEN62120 
62090 PR I NT " TRE ( TÉ > LEFT$ ( " . K+1 > L 

Eft$ MS$ j Q) 

62100 Q=Q+Ì:IFQ>LENaiS$>THENQ=0:K=l-K 
62110 GOTO62070 

62120 CLR:PRINT" JT :G0SUE61000 : GOTO100 






Caccia 

(joystick) 



Caccia è un adventure game semplice come presentazione ma non facilis¬ 
simo; all’inizio lo schermo viene riempito dal C-64 di ostacoli mobili, do¬ 
po di che appaiono, sotto forma di asterischi rossi, le due bestie che do¬ 
vrete cercare di intrappolare. Da ultimo apparirete voi, contrassegnati da 
un anello giallo. 

I due animali, al momento dell’apparizione, lampeggeranno brevemente 
emettendo uno sgradevole rumore al fine di permettervi la loro identifi¬ 
cazione. Da questo istante essi vi daranno la caccia spietatamente e il vo¬ 
stro scopo sarà quello di intrappolarli utilizzando le barriere mobili pre¬ 
senti sullo schermo. Attenzione però, l’impresa non è facile! Le bestie so¬ 
no molto furbe e non potete eludere la loro ricerca; uno dei metodi per 
catturarle è quello di costruire delle gabbie con una sola uscita, attirarle 
dentro e poi chiudere il tutto (dopo essere usciti!). Non avvicinatevi trop¬ 
po però, a meno che la vostra assicurazione sugli infortuni non sia ecce¬ 
zionale! 

I vari livelli di difficoltà proposti dal C-64 aumenteranno notevolmente la 
velocità delle voraci bestiacce. 
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r«rir»rjTTirD T 

CDCr-TClI T IITTf T 

77QT T 


' .. " LrlKM 1 ItlKi 

SIMBOLI GRRFICI 

^ COMM + 

OrCLlnUi UlILI 

1 X 


COMRHDI & COLORI 

a RVS OH 

■ RVS OFF 

a 

HOME 

n CLERR 

W CRSR-D 

n 

CRSR-U 

il CRSR-L 

a CTRL UHT 

k 

CTRL CVH 

CTRL VEL 

m CTRL PUR 


COMM CVH 


POt= '• c " fì •' C C '■ I " fì : RUì:= "DI' MFILCOLM MICHREL " : 
JF=1 

REM CRPTIJRE -- EV MRLCOLM MI CHREL 

REM COPYRIGHT (C) 1983 THE CODE WORKS 
REM EOK 6905. SRHTfi ERRERRR. CR 93160 


REM RS OF 8/12/83 B3 

REM EDIZIONE ITRLIRHR •• EDIGEO 1984 

GOTO62000 

V=87:W=160 :M=42:G=32:BR=214 :DI=CM-CRT:DIMJD <1 
5> : 1 : 1=8 :C2=7:C3=4 

FORI =0TO 15 : RERD JD ( I > : HE/T : DRTR0.0.0.. 0.0.. 3.96 
.0. 1. ('‘.4.0.ì£I.8j5 

DEFFN J < / ) = JD C PEEK JS+X > RHD15;': dEFFNB PEEK 

'::JS+/;'fiHD16>=0 

FORI=0TO28:POKESID+1.0 : HE/T :POKESID+6 > 240 :POK 
ESID+4. 17 :VL=SID+24 

IJL=CRT+WD*2 : S1 =31D+1 : S2= 1E20 : S3= 1E20 : REM S2=T 

0HE..S3=CTRL 

GOSUE7000:DF=9-G:G=32 

IFDF<:0ORDF>3THEH120 

VS=0 

ES=0 

B=1 

H=200 

P|=:0 : C=:0 : .V::=0 

DIMBR e: B >. BC <: E >. BP E >. BM B > 
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FORfì^lTOS:REflDDR<fì> > DC<fì):HEKTfl 
DRTfìl.-l.1.0.1.1.0.-1.0.0>0.1 
BL$="ii' 

PRINT".T' 

pRiHT"a";BLfj " ••■iir " 

F0RI = 1T021 :PRINT"a-'l".;EL$; "lia' lll" ^ HEXTI 
PRINT" a";BL$; ""lira" 

PRIHT"a".: :F0RR=1T0N 
GOSIJB1130:POKEVP.ER 
HEXTR 
POKESl.50 

FORR=0TOB : BM < R > = I NT ( RHH ( 1 > if:DF > 

GOSUB1130 : FORI =-1TO1 : FORJ=-1TO1 :1FPEEK ( VP+1 •4fW 
D+J)=GTHEN390 
ne:ktj. I ; 0010375 

POKEVL .15: POKES1.75+25if:R ^ FORC== 1TO20 •• POKEVP. M+ 
128 

BP ( R > = VP : BR ( R :• = VR : BC < R ) = VC 
POKEVP. ri : POKEVP+ni. CI : NEXTC. R 
GOSUB1130 :HP=VP:HR=VR:HC=VC 
POKEVL.0 
FORR=0TOB 

IFRBS < HR--BR < R ) >< 1ORHDRBS < HC-BC (R)> •C20THEN410 
NEXTfl 
POKEVL.15 

POKEHP. V : POKEHP+DI. 1:2 
PRIHT"a-IHI2IR"RPPENR"PR0NT0..." 

POKES1.255:POKEHP.(PEEK C HP) +128 > RHD255:FORR=1 
TO200:NEXT:X=FHJ<0) 

POKESl.245 :IFK=5THEH490 
PRINT"a";BLt 

GOSUB1110 : TI$="000000":POKEHP.V :POKEHP+DI.C2 
1=0:POKEVL.0:GOTO550 

X=FHJ<0> : Bri=0 : GETQ$ : IFQ$="Q"THENPRIHT":iB(l9J" : END 
PRINT-aTEMPO: '■"JMID$':TI$.3.2>; " : ";RIGHT$<TI$. 
2 > 

IFR=5THEN590 

0CP=CP:CR=DR':>O :CC=DC(X> :CP=CR*WD+CC 
IFOCP<:>CPTHENLL=0 
SD=0 

X=PEEK(HP+LL+CP):IFX=BRTHENLL=LL+CP:SD=16:GOT 
0600 

610 POKEVL.SD :POKESl.128 :IFCP=0THEN670 
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I FX=WOR < X=rifìHDLL<>0 > THEHI =0 : GOTO670 

HP=HP+i::P : IFLLO0THENPOKEHP+LL. BR 

POKEHP-CP. G : POKEHP-CP+DI. C3 : POKEHP/t' : POKEHP+D 

I.C2:IFX=MTHEH820 

HR=HR+i::R : HC=HC+CC 

K=0:FORfi=0TOB:IFBP<fi>>0THEH675 

I FflBS C BR <; R :• -HR ) > 1ORRBS ( BC ( fi > -HC ) > 1THEH790 

BP<fl>=RBS':;BP':fì>> 

BM';;fi)=BM(R>--l : IFBM(;fl;;'>=0THEHK=K+l :GOTO790 
BM ( fi > =riF : OP=flBS < BP ( fi > > 

DH=SGH(HC-BC C fi >):DV=WD#SGH < HR-BR C fi > > 
HP=OP+riV+DH : X=PEEK':;HP> ; IFX=VORX=GTHEH760 
NP=i:iP+riH : K=PEEK(HP> : IFX=VORX=GTHEN760 
HP=OP+riV:K=PEEK:<NP) : IF>^=VORX=GTHEN760 
C=0:HP=.-OP:FOR 11=1 TO 9 
T=BP < fi)+WD#DR(D)+DC(D > 

K=PEEK<T;': IF X=G OR X==V THEH C=C+1 : IF RNIK 1 :•> 
•:c-l)/c THEH HP=T 
HEHT D 

BP';:fi>=HP : IFHP<0THEH790 
POKEHP+ni.Cl:POKEOP+DI.C3 

POKEOP > G: POKEHP .M:K=K+1 : HP=HP-UL : BR < fi > = IHT C HP 
/WD ) : BC < fi > =HP“Wri*BR fi > 

FORH=0TOB:IFBP(K)>0THEH7S0 

I FfiBS C BC < K ) -BC C fi > > <2fiHrifiBS < BR C H >-BR < fi ) > <2THEH 

EPOO=fiBS(EP(H>> :K=K+1 

HEHTK 

HEXTfi:IFK=0THEH380 
IFPEEK < HP > =MTHEHS20 
GOTO540 

PRI HT " Sì«a-- SE I STfiTO ■' MfiHG I FlTO -• DfiLLE ' BEST I ACCE ! 

! ! " 

ES=ES+1 :K=M:POKES1.30:POKEVL.15 

FORfi= 1T027 : POKEHP. X •' FORC--= 1TO20 : HEXT : POKES 1.45 

:POKEHP.V 

POKEHP+DI.C2:FORC=1TO40:HEXT:POKES1.40 :HEXT:P 
OKEHP+DI.C3 

POKEHP.93 :FORfi=1T05:POKES1.170-fi t2:HEXT:POKEH 
P-WD.91 

FORfi=lTO850:HEXT 

GOTO920 

PR I HT " saasufi I VI HTO I ha r CATTURfiTO LE BEST I ACCE 
! !":VS=VS+1:X=S3 
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890 

900 


910 


915 

920 

930 

960 

980 


981 

QO'"* 

990 

1000 

1010 

1020 

1030 

1040 
1050 
1060 
1070 
1080 
1090 
1 1 00 
1110 


1120 

1130 

1140 

1150 

2000 


2010 

2020 

2021 

2030 

2040 

2050 

2051 


POKE31.30-POKEVL.15 

FORfl= 1TO30 : POKEHP.. X : FORC= 1TO10 : NEXTC : POKES1.2 
55 

POKEHP.V :POKEHP+DI.C2:FORC=11030 :NEXT;POKES1. 
235 :HEXT 

FORfi=lTO200:HEXT 

POKEVL,0 

PRINT'K-lBMtì" 

GOSIJB9100 : IFVHTHEH290 

PRI NT " neiSBPahFl r 01OCRTO •' UN " TOTRLE ' DIH" BS+VS " PR 
RTITE"; 

IF ES+VS=1THEN PRINT"ll=l" 

PRINT"M" 

f\t- "TU'"- B$= " LE BEST IRCCE - " 

T=VS:GOSUB2000;T=ES:GOSUB2050 

C= INT< 1 QmWS/C VS+BS> > : R$ = " IL'' " +STR$<C> + "X" : IF 

C=0THENR$="NESSUNR" 

PR I NT " HRI '■ VINTO ' " R$ " •- DELLE " VOLTE. " 

ONI NT':<C+VS+ES)/20> GOTO 1050.1060.1070. 1080. 10 

80.1090.1090.1090.1090 

Rf = " DRTTI ■■ RLL " IPPICR ! " : GOTO 1100 

fl$= " SOPRRVVISSLITO " : GOTO 1100 

R$= " orci: IRTORE ^ RLLE ' PR I ME '' RRMI " : GOTO 1100 

Rt = "CRCCI RTORE " ESPERTO " •• GOTO 1100 

R$="CRCCIRTORE"PROFESSIONISTR": GOTO1100 

f\t-= " ESPERTO •' PROFESS I ON I STR " : GOTO 1100 

PRINT"]!JjRRDO : " ■ end 

PRINT"»Ì»ÌÌÌÌ»ÌÌÌtÌÌF'UNT. : ^BESTIE : "BS" '' ■ TU : 

Il IJC 

RETURN 

VR=INT < RND <1> *21>:VC=INT(RND C1> *40) 
VP=VR*!.'JD+VC+UL : IFPEEKC VP)C>GTHEN1130 
RETURN 

PR I NTR$+ " HR 1" ; : IF T=0 THEN PR I NT " llllt-^ON HR I 
"MRI"; 

PR I NT PRESO''";B$; 

IF T>0 THEN PRINT T;"VOLTE"; 
IFT=1THENPRINT"IFI"; 

PRINT".":PRINT:RETURN 

PRINT"S:»ÌtÌ»ÌÌlÌÌtÌÌÌll" ; : RETURN 

PRINTE$+" • TI '-HRNNO"; : IFT=0THEN PRINT"liiiiiMI 

IHON-'TI'HRNNO'MRI"; 

PRINT""PRESO-"; 
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2052 IF T>0 THEN FRINT T;"VOLTE"; 

2053 IFT=1THEWPRINT"IIR"; 

2054 FRINT".": FRINT : RETURN 

2100 FRI NT " ; 

2110 PRINT flBSCBRCfi^-HR); "ir" 

2120 IFPEEK C152 > =0THEN2120 
2130 RETURN 

7000 PRI NT " naBftECEGL I - UN LI VELLO •' : Wa" : 

7010 FORI = 1T09:PRINTI ; :NEXTI :PRINT :G=1 :T=1 :TM=0 
7020 X=G:IF TI>Tr-1 THEN PRINT TnB<3#G-3> ; MID#-; " *0" . 

T. 1>; "T';G:T=3-T:Tr'1=TI + 10 
7030 IF FNJ<0>=4 THEN IF G>1 THEN G=G-1 
7040 IF FNJ<0)=6 THEN IF GOTHEN G=G+1 
7050 IF XOG THEN PRINT TfiB<3*X-3>; "SH" ; X : T=1 : Tf1=0 
7060 IF FNB(0>=0 THEN 7020 
7070 RETURN 
9100 NO=0 
9110 TM=0:SW=1 

9115 PR I NT " « IOCHlfiNCORfl? ' 'SS I ' NO - .1" 

9120 IF TKTM THEN 9150 

9130 PRINTTfiB <14+N0#4 >;MID$ C".SU.1>;MI Ut (""SINO 
•'".3i*sN0+1.3>; "n" 

9140 SW=3-SW:Tr'1=TI + 15 

9150 JD=PEEK<JS)fiND31 : JB=(jri<16> ; JD=JDflND15 
9160 IF JB AND JD=15 THEN VN=<NO-0>: RETURN 
9170 IF(JD AND 8)=0 AND NO=0 THEN NO=l:GOTO 9115 
9180 IFCJD AND 4)=0 AND NO=l THEN NO=0:GOTO 9115 
9190 GOTO 9120 

60000 IN$=""":ZT=TI ;2C=2:ZD$=CHR$(20) 

60010 GETZf : I FZtC> " " THEN60070 

60020 IFZT<:=TITHENPRINTMID$( " .ZC. 1 >; "II" ; : ZC=3~2C 

:ZT=TI+15 
60030 GOTO60010 

60070 Z=ASC CZt:> - ZL=LEN( INf ) : IF(ZAND127><:32THENPRINT 
""II"; :GOTO60110 
60090 IFZL>QI THEN60010 
60100 I m= I m+zt ■■ PR I HTZt ; znt ; zt ; 

60110 IFZ=13THENIN$=MID$(IN^.2 >:PRINTCR$; : RETURN 
60120 IFZ=20ANDZL>lTHENINf=LEFT$( IN$. 2L-1 > : PRINT "II" 
;:GOTO60010 

60130 I FZ= 141 THEN2$=CHR^ < -20i* ( ZL> 1 > > F0RZ=2T0ZL : PR I 
NTZ$;:NEXT:GOTO60000 
60140 GOTO60010 
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61000 

61010 

62000 


62010 


62020 


62030 

62040 

62045 

62050 

62060 

62070 

62080 

62090 

62100 

62110 

62120 


CRT=1024 : VIC=53248 : WD=40 : CR$=CHR$a3> : SID=542 
72 : JS-56320 : C:M=55296 
QL=214:131=254: RETURN 

G0SUE61000 : POKEVIC+32. 0 : POKEVIC+33.0 : LN=LEH P 
G$> : TB=<40-LN:'/2 

PRI NT " nfaDflMBna" TPB C TB ) LEFT$ C " " •- •' •- ' ^ ^ ^ 

' •' ••• ". LN> 

PR I NT " a" TRB ( TB > PG$ : PR I NT " 3" TfiB < TB > LEFT$ < " ^ ^ •- 

PR I NT " Wtì" TfìB •: C 40 -lÉn < kjt > > /2 > l=lUt 
MSf="BRTT r RETURN'PER-INIZIRRE" 

IFJFTHENriS$= "PREM l'IL' JOVSTICK^PER ' INIZIRRE•' 
TB= ( C 40-LEN ( ri£$ > > /2 ) 

PR I NT " M8IWML" TRB < TB ) NSt : PR I NT " ’mmmk.' 

•' C C > •' 1983 '■ THE CODE " WORKS " 

GETI N$ : IFI m<y " " THEN62120 

IF < PEEK < JS)AND16 > =0THEN62120 

PR I NT " TRB C TB ) LEFT$ C"Wk." , K+ 1 > L 

eft$-:ms$.q) 

i3=Q+1:1 FQ>LEN < riS$ ) THENQ=0 : K= 1 -K 
GOTO62070 

CLR : PR I NT " .la" : i;iOSUB61000 : GOTO 100 





o 

s> 

© 

a> 





Vi trovate al comando di un gruppo di cinque sommozzatori in una mis¬ 
sione di recupero del tesoro di un galeone affondato, sul fondo del mare. 
Un unico problema: la zona pullula di mine vaganti e ogni contatto con 
esse è mortale. 

I sub (che potete controllare con il joystick) possono impadronirsi dei te¬ 
sori solo toccandoli con la testa e possono riemergere solamente nel pun¬ 
to esatto in cui si sono immersi. 

II loro consumo di ossigeno durante l’immersione vi viene indicato dalla 
barra colorata in alto sullo schermo ed esso varia con l’aumentare dei li¬ 
velli di difficoltà. Una volta consumato tutto l’ossigeno a disposizione, 
niente si potrà fare per salvare il sommozzatore ancora in acqua! D’altra 
parte, vederli colpiti da una mina vagante non è certo uno spettacolo pia¬ 
cevole. 

Anche se avete cinque sommozzatori a disposizione per recuperare i teso¬ 
ri, dovrete cercare di portare a termine la missione senza sacrificarne 
nessuno; il punteggio ottenuto vi sarà mostrato al termine del gioco. 
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r SHIFT £ 

• 

SHIFT Q 

1 

COMM 

M 

_ COMM @ 

■ 

COMM I 

■ 

COMM 

V 

^ COMM W. 


COMM T 

1 

COMM 

H 

1 COMM K 

1 

COMM N 


COMM 

+ 

COMANDI & COLORI 






S) RVS ON 

■ 

RVS OFF 

-a 

HOME 


n CLEAR 


CRSR-D 

n 

CRSR- 

■U 

Il CRSR-L 

4 

CTRL WHT 


CTRL 

BLU 

k CTRL CVN 

m 

CTRL VEL 

a 

CTRL 

PUR 
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a 

COMM CVN 





0 PGS- " S •- U '' E ■' : RIJ$= " Il I " GLEH " FISHER " : JF= 1 
1 REM DIVE — BV GLEH FISHER 

4 : 

5 REM COPYRIGHT <.C> 1983 THE CODE WORKS 

6 REM BOX 6905. SANTA BARBARA. CA 93160 

10 REM AS OF 9/6/83 GF 

50 REM EDIZIONE ITALIANA : EDIGEO 1984 

90 GOTO 62000 

100 DIMJD C15 >:FORI=0TO15 : READJD CI):NEXT:QI=254 : PO 
KEVI C+32 .6 :POKEVI C+33 .0 

110 DATA-1.-1.~1.-1.-1.-1.-1.l.-l.-l.-1.3.-1.2.0. 



<JS+X>AND16>=0 

130 FORI =0TO28 : POKESID+1.. 0 : NEXT : POKESID+6.240 : POK 
ESID+4.17 

200 FOR 1=0 TO 3:READ RC(I>.CCCI).ROCI>.CO(I>:NEXT 
210 DATA -4.0.11.15. 0.4.15.4. 4.0.4.0. 0.-4.0.11 
220 FOR 1 = 1 TO 6:READ S^a):NEXT 

230 DATA TERRIBILE. SCARSO. DISCRETO. BUONO. "MOL 
TO'BUONO". ECCELLENTE 




SUB 243 


240 

250 

300 

500 

1100 

1105 

1110 

1120 

1130 


1200 

1210 

1220 

1230 

1300 

1310 

1320 

1330 

1340 

1350 

1400 

1410 

1420 


1500 

1505 

1510 

1520 

1530 

1540 

1550 

1560 

1570 


FOR 1 = 1 TO 6: READ FBCn:NEXTI 

DATA 2.8.7,1.7.8 

BR=CRT+24if.WD 

GOSUB 9000:GOSUB 8000 

FRI NT ":T'jCHRt<142>; "Wa 

PRIMI I 

PRINT """__ 

PRIMI ’ia-'a- 

PRINT "3 -- 

-a" 

ND=6:DIi=-l :FOR 1=2 TO 6 : POKE SP+I.S0 
POKE VIC+39+I.10 

POKE VIC+1 +1. C0+59-8J^ I : POKE VIC+1 +1 +1. R0+10 
NEXT I 

PRINT "SaiSiaBlfilK^^ 

FOR 1=1 TO 6 
T=I NT <: RNii a > .4i ajD-2 ;■ )+1 
A=ER+T:IF PEEK<A><>32 THEN 1320 
PRINT TAE(T>;"tT' 

NEXT I :NP=6:NS=0 

LD=C0+87 : Rri=C0+93 : Tri=R0+33 : BD=R0+40 
C1=00+1 :09=00+298 :R1=ED+1 :R9=R0+173 
riA= 1 + < < 09- •: LD+RD > /2 :• /CO < 1 ) + C R9-TD > /RC ( 2 




Nri=Nri-l :DD=riD+l IF NDCI or NP=0 THEN 5000 
S=7-ND:POKE VIC+S+S.0 :POKE VIC+S+S+1.0 
C=< LD+RD ::'/2 : R=TD : POKESP+2. 80 
IF S>2 THEN POKE VIC+S+S.C:POKE VIC+S+S+l 
POKE V10+4.0 :POKE V10+5.R 
IF S>2 THEN POKE VIC+S+S+1.0 


.R 


POKE V10+21.254 :FT=INT(MA*10/SK+1) 
SF=FT/140 


PRINT "5»SS: a""-""" 


/////// y y / y / y / / / .*• .•* ✓ / 


1600 DR=0 : HB=0 : HP=0 : AR=FT : T=PEEK V10+30 > +PEEK ( V10+ 
31 > 

2000 D=FNJ(:0) •• IF D>=0 THEN DR=D 

2010 GETT$: IFTf="Q"THENPOKEV10+21.0:GOTO5200 

2100 NC=C+CC <: DR ) : NR=R+RC < DR ) 

2110 IF NC>=C1 AND NC<=C9 AND NR>=R1 AND NR<=R9 TH 
EN 2200 

2120 IF NC>=LD AND NCORD AND NR>=TD AND NR<=BD TH 
EN 2200 



244 SUB 


2130 HR=R:NC=CIF R>=R1 OR HP=0 THEH 2200 
2140 POKE VIC+21.254:PRIHT ‘‘jSlMBltì''; TfiB(;4+NS) ; 

2150 HP=0:NS=HS+1:IF HP=0 THEN 5000 

2160 W= IHT <; ( fiR+SF“ 1 > /SF > : T= I NT C W/4 > : Z=W“4stET : flR=FT 

2170 PRIMI "aa";TfìB<T+4>JMiri$<"H H a 11S|-%Z+Z+1>2> 

21S0 Z=Z+l:lF Z>3 THEN 2=0:T=T+1:IF T>34 THEN 2200 

2190 GOTO 2170 

2200 IF R<R1 THEN 2300 

2210 flR=FlR-1 : W= I NT < C FiR+SF-1 ) /SF > 

2220 T= I NT ( U/4 > •• Z=W-4*T 

2240 PRiNT " saa"; TflB c T+4).ni ri$ <"■•••» a a r>z+z+i.2> 
2250 IF fiR<;=0 THEN POKE VIC+41.6 FOR 1 = 1 TO 500:NE 
KT I:GOTO 4300 

2300 C=NC:R=NR:OD=DR:HB=HB HND NOT 5 
2310 CL=CRNri255 :HB=HE fìNH NOT 133 :IF 0255 THEN HB 
=HB OF*’ 13*^* 

2330 PR=R+Fki<DR> :PC=i:;+CO<riR> :PL=PC FlND 255: IF pc>2 
55 THEN HB=HB OR 1 
2340 POI<ESP+2.S0+riR 

2350 POKE VIC+4.CL:P0KE VIC+5.R:P0KE VIC+16.HE 

2360 POKE VIC3PL:P0KE VIC+l.PR 

2370 GOTO 2600 

2500 IF DR=OIj THEN 3000 

2510 HB=HB AND NOT 1 

2520 P=C+COCDR>:IF P>255 THEN HB=HE OR 1 

2530 POKESP+2.SG+DR:POKE VIC+16.HB 

2540 POKE VIC.P RND 255:POKE VIC+1.R+RO(DR> 

2550 OD=DR 

2600 IF HP OR RCR9 THEN 3000 
2610 T=PEEK VIC+31 > : T=TI +1 

2620 T=PEEK(VIC+31):IF (T RND 4>=0 THEN 3000 
2630 R= I NT <; c; i::-C:0 ) /8 > +ER+1 
2640 POKE R > 32 

2650 POKE VIC+21.255 :HP=1 :NP=NP-1 

2660 GOTO 3000 

3000 IF MS THEN 3100 

3010 MR= I NT RND (A )WX R9~R 1 > > +R1 

3020 MC=INT(RND <1> #(C0-12)> 

3030 POKE VIC+3.0 

3040 MS= I NT < RND < 1 > #CC < 1 > *2 

3045 HB=HB RND NOT 2:POKE VIC+16.HB 

3050 POKE VIC+2.MC:P0KE VIC+3.MR 

3060 T=PEEK':VIC+;30> :G0T0 2000 




SUB 245 


3100 f1C=MC+riS : 2=PEEK < VI C+30 > 

3110 IF riC>255 THEH HB=HE OR 2:P0KE VIC+16.HE 
3120 POKEVIC+2. rii:RNIi255 
3130 IF MOC3+20 THEH MS=0 
3140 2=2 OR PEEK<VIC+30) 

3145 FE=FE+l:IF FE>6 THEH FE=1 
3150 POKEVI0+40.FE(FE) 

3155 IF <2 flHD 2;'=0 THEH 2000 

3160 GOTO 4000 

4000 POKE VIC+46.2:r-1S=0 

4010 POKE VIC+14.PEEK C VIC+4 >:POKE VIC+15.PEEK < VIC+ 
5> 

4020 GOSIJE4900 : POKEVIC+46.8 : POKEVIC+3.0 
4030 GOSIJE4900 : POKE VIC+46.7 
4040 GOSIJB4900 ; POKE VIC+46. 1 
4050 GOSIJB4900 : POKE VIC+46. 7 : POKE VI C+41.1 
4060 GOSIJB4900:POKE VIC+46.8 : POKE VI C+41.7 
4070 GOSUB4900:POKE VIC+15.0 :POKE VIC+41.8 
4080 GOSIJE4900 : POKE VI C+41.11 
4090 GOSIJB4900 : GOTO 4300 

4300 P0KEVIC+27.5:P=PEEK(VIC+1> : IF EROS' THEH POKE 
SP+2.30+1 
4310 R=R+l:P=P+l 
4320 IF R<256 THEH POKE VIC+5.R 
4330 IF P<256 THEH POKE VIC+l.P 
4340 IF R<256 OR P<:256 THEH 4310 
4350 POKE VIC+41.10 :POKEVIC+27.0 
4360 GOTO 1500 
4900 T=TI+4 

4910 IF TICT THEH 4910 

4920 RETURH 

5000 T=TI+60 

5010 IF TKT THEH 5010 

5020 POKE VIC+21.0 

5030 PRIHT"d";CHR$CI4) ; "WW'’HfìI''SRLVflTO"; : IF HS=0TH 
EHPRI HT " •' HESSIJH " TESORO " ; 

5035 IFHS>0THEHPRIHTHS;"TESOR1"j 

5036 I FHS= 1THEHPRI HT " 110 " ; 

5050 PRIHT ■• • 80^6" :PRIHT "JE^HRI • SRCRIFICRTO" 

5060 PR I HT " SLR - VITR '' EI " j 

5080 IF EE=1 THEH PRIHT " •'UH-'SUBRCQUEO" ; : GOTO5090 
5085 PRIHT EE;"SUBRCQUEI"; 

5090 P= 100*HS-4if EE : PR I HT ". ' QUESTO •' TI 




246 SUB 


5100 PRINT "WDfl"'UH"RISIJLTRTO"Dr : IF P<0 THEH P=0 
5110 PRINT P; "II. -CHE-E""" 

5120 P=INT C C P+60 >/132 > +1 
5130 PRINT 
5140 GOSUE 8100 
5150 IF fi THEN 1100 

5200 PRINT " Cn";CHR$ <142):POKE VIC+32.14:poKE VIC+ 
33.6:END 

7999 END 

8000 PR I NT " □«iCEGL I - UN " LI VELLO : m" ■ 

8010 FORI = 1TO10 :PRINTI ; :NEXTI :PRINT :SK=5:T=1 :TM=0 
8020 X=SK:IF TI>Tri THEN PRINT TfìB<3*SK"3) ; MID$<" «B 
".T.1);"n"j SK:T=3-T:TM=TI+5 
8030 IF FNJ<0;'=3 THEN IF SK>1 THEN SK;=SK"1 
8040 IF FNJ<0) = 1 THEN IF SK<10 THEN SK=SI<+1 
8050 IF XOSK THEN PRINT TfiE<3*X~3> ; "IH" ; X : T=1 : TM=0 
8060 IF FNB<0>=0 THEN 8020 
8070 RETURN 

8100 PR I NT " Mac IOCHI •' fiNC0Rfi?»^0 ''SI ' " : 

8110 fi=l:T=l:TM=0 

8120 X=fi:lF TICTN THEN 8150 

8130 PRINT MID$< " «]". T. 1 ) j TfiB< 14+4#Fl> J "H" J MID$( "NO 
•'SI'".34iR+1.3> ■ 

8140 T=3-T:TM=TI+10 
8150 IF FNJ<0>=3 THEN fi=0 
8160 IF FNJ<0>=1 THEN fi=l 

8170 IF XOfi THEN PR I NT TfiB < 14+4i*X > ; " .TJO". fi I Df < " NO ' 
SI '".3:4iX+1.3> :T=1 :Tri=0 
8190 IF FNB<0)=0 THEN 8120 
8200 RETURN 

9000 SB=16384-512 :S0=<3B/64)flND255:SP=CRT+1016 
9010 FOR 1=0 TO 6:fi=SB+64J^I :REfiD N 
9015 PRINT "Si«";7-I 

9020 FOR J=0 TO N-l:REfiD T:POKE fi+J.T:NEXT 
9030 FOR J=N TO 63:POKE R+J,0;NEXT 
9040 NEXT I 

9050 R0=50:C0=24:FOR 1=1 TO 15 STEP 2:POKE VIC+I.0 
:NEXT:POKE VIC+16.0 

9060 POKE SP.S0+4:POKESP+1.S0+5:POKESP+7.S0+6 

9070 POKE VIC+40.7:POKE VIC+37.7 

9080 POKE VIC+28.2 

9090 POKEVIC+21.255 : RETURN 




40000 

40001 

40002 

40003 


40004 

40005 

40006 

40007 

40008 

40009 

40010 

40011 

40012 

40013 

40014 

40015 

40016 

40017 

40018 
60000 
60010 
60020 

60030 

60070 

60090 

60100 

60110 


DRTfì62.0.112.0.0,. 248.0.0.248.0.0.248.. 0.0.112. 
0.3.254.0.7.255.0.15.255 

DATA128.29.253.192.57.252.224.49.252.96.33.84 
.32.1.84.0.1.84.0.1.84.0.1 

DATA220.0.1.140.0.1.140.0.1.140.0.3.142.0.3.6 
DATA56.0.0.0.0.0.0.0.112.0.0.56.0.0.28.0.0.14 
.0.192.7.0.254.191.0.124 

DATA191.112.2.191.248.2.191.248.2.191.248.124 

.191.112.254.191.0.192.7.0 

riATA0.14.0.0.28.0.0.56.0.0.112 

DATA62.3.6.0.3.142.0.1.140.@.1.140.0.1.140.0. 

1.140.0.1.220.0.1.84.0.1.84 

DATA0.33.84.32.49.84.96.57.252.224.29.253.192 

.15.255. 128. i’". 255.0.3.254.0 

DATA0.112.0.0.248.0.0.248.0.0.248.0.0.112 

DATA56.0.0.0.0.0.0.0.112.0.0.224.0.1.192.0.3. 

128.0.7.0.24.7.235.248.119 

nATA233.240.255.234.0.255.234.0.255.234.0.119 
. 233.240. >'. 235.248.7.0.24.3 
DATA12S.0.1.192.0.0.224.0.0.112 
riATA16.120.0.0.252.0.0.252.0.0.252.0.0.252.0. 
0. 120 

riATA32.10.128.0.41.160.0.37.96.0.165.104.0.14 
9.88.0.149.88.0.149.88.0 
DATA165.104.0.37.96.0.41.160.0.10.128 
DATA62.1.252.0.7.255.0.31.255.192.63.255.224. 
63.255.224.127.255.240.127 

riATA255.240.255.255.248.255.255.248.255.255.2 
48.255.255.248.255.255.248 

DATA255.255.248.255.255.248.127.255.240.127.2 
55.240.63.255.224.63.255 
DATA224.31.255.192.7.255.0.1.252 
im=" ■- " : ZT=:TI : 2C=2 : 2D$=CHRi:(20> 

GET2$ : IFZtO" "THEH60070 

I FZT<:=T ITHEWPRINTMI D$ ( " " W '. ZC. 1 > ; " II": ZC:=3-ZC 

:ZT=TI+15 

GOTO60010 

Z=ASC(;Z$> :2L=LEN<IH$> : IF':ZRND127)<;32THEHPRIHT 
"-II"; :GOTO60110 
IFZL>QI THEN60010 
I I m+zt ■ PRI HTZ$ ; zdt ; z$ ; 

I FZ= 13THEHI N$=ri I Dt ( I Hf. 2 > : PR I NTCR$. : RETURN 




248 SUB 


60120 

60130 

60140 
61000 

61010 

62000 

62010 

62020 

62030 

62040 

62045 

62050 

62060 

62070 

62080 

62090 

62100 

62110 

62120 


IFZ=20FlHriZL>lTHEHIH$=LEFT$< IHf. ZL-1 ) : FRI NT "II" 
;:GOTO60010 

IFZ=141THEHZ$=CHR$';-20*< ZL>1 > : F0RZ=2T0ZL : PRI 

HTZ$; •• NEXT : GOTO60000 

GOTO60010 

CRT= 1024 : VI C=53248 : WD=40 : CR$=CHR$ C13 > : S111=542 

72 :JS=56320:CM=55296 

QL=214:QI=254:RETIJRH 

G0SIJB61000 : POKEVIC+32. 0 : POKEVIC+33.. 0 ^ LH=LEN •: P 
G$> :TB=<40-LH;;'/2 

PRIHT":itìi!lPl«7ia" TFIB( TB>LEFT$< " •- ' •- ' " ' •- " ' ' '' ^ " ' 
".LH> 

PR I NT " a" TftB TB ) PG$ ■ PR I NT " a" TfìB ( TB ;■ LEFT$ C " ^ 

PR I HT " Jltì" TRB 40 -lÉn ( fiU$ > > /2 ) FllJ$ 

Ì1S$= " BRTTI " RETURN ■■ PER "INIZI RRE " 

IF JFTHENr-1S$= " PRENI " IL " JO VSTICK •- PER "INIZI RRE " 
TE=O::40-LEN(riS$>>/2) 

PR I NT " :i!B!lKttk" TRB < TB > MS$ : PR I NT " MMtìRM " " " " " " " 

<; C " 1983 " THE " CODE " WORKS " 

GETI N$ : IFI mO " " THEN62120 

IF •: PEEK < JS > RND16 ) =0THEN62120 

PR I NT " TRB ( TB > LEFT$ < " »^" .. K+1 L 

EFT$aiS$.Q> 

Q=Q+1 : IFQ>LEN'::MS$>THENQ=0 : K=l-K 
GOTO62070 

CLR : PRINT"na" : GOSIJB61000 : GOTO 100 





Stop è un gioco da tavolo per due giocatori, uno dei quali può essere so¬ 
stituito dal C-64. A turno essi devono tirare quattro dadi e muovere di 
conseguenza delle pedine sulla scacchiera a forma di rombo, divisa in un¬ 
dici colonne numerate da 2 a 12. Lo scopo è quello di conquistare tre del¬ 
le undici colonne, facendo avanzare i propri pezzi lungo di esse fino ad 
arrivare in cima. 

Al vostro turno i movimenti dei pezzi saranno mostrati con dei segnalini 
temporanei indicanti la posizione raggiunta; le pedine vere e proprie non 
si spostano durante la mano e sono solo questi segnali che indicano la vo¬ 
stra posizione. Essi iniziano a muoversi dall'ultima posizione raggiunta 
dalle pedine e se in una data colonna non ne esistono vengono inseriti al¬ 
la prima posizione. Non potete avere comunque più di tre segnali tempo¬ 
ranei per mano, ma potete continuare a muoverli finché decidete di tira¬ 
re i dadi. 

Durante il turno, il C-64 lancia i dadi e mostra tutte le possibili coppie 
derivanti dalla combinazione dei quattro dadi; per esempio, se i dadi ot¬ 
tenuti sono 1-2-4-6, le coppie possibili sono 3-10, 5-8, 8-5, 10-3, 6-7 e 7-6 (le 
altre due combinazioni, 1-12 e 12-1, non sono considerate perché non esi¬ 
ste la colonna 1). Voi non dovete fare altro che scegliere la coppia che 
meglio vi serve per muovere le pedine sulla scacchiera: se possedete un 
segnalino temporaneo nella colonna 3 e avete scelto la coppia 3-10, avan¬ 
zerete in quella colonna di una posizione: se ne avete uno anche nella co¬ 
lonna 10, avanzerete anche in quella. Se non avete alcun segnale tempo¬ 
raneo sulla scacchiera, il C-64 vi porrà due segnalini alla prima posizione 
delle colonne 3 e 10. Ricordatevi che potete muovere solo tre segnali in 
ogni mano. 
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Perché mostrare due volte le coppie (come 3-10 e 10-3)? In alcuni casi 
l'ordine delle cifre è importante: se infatti voi avete già due segnalini 
temporanei sulla scacchiera, in altre due colonne, e nessuno sulla 3 né 
sulla 10, dovete poter scegliere se muovere il terzo sulla colonna 3 o sul¬ 
la 10: prenderete quindi la coppia in cui il numero scelto appare per pri¬ 
mo. Le coppie sono sempre mostrate in modo da poter operare questa 
scelta. 

Potete continuare a tirare i dadi (C = continuo) e quindi a spostare i se¬ 
gnali temporanei, finché non decidete di fermarvi (battendo S = stop) o 
finché non "saltate”. 

Se nel lancio dei dadi infatti ottenete dei numeri che non vi permettono 
né di muovervi né di aggiungere dei segnalini, saltate: il vostro turno fini¬ 
sce e — quel che è peggio — perdete tutti i movimenti fatti durante la 
mano; tutti i segnali temporanei scompaiono e rimanete con le vostre pe¬ 
dine nelle stesse posizioni in cui eravate all’inizio del turno. 

Se invece decidete di fermarvi, i segnali temporanei vengono sostituiti 
dalle pedine fisse. In ogni caso non ci sono limiti al numero di tiri che 
potete fare in una mano, se i numeri vi sono favorevoli. Se avete raggiun¬ 
to la cima di qualche colonna, questa diventa tutta vostra e i pezzi 
deH’avversario (se ne esistevano) spariscono da quella colonna. 

Arrivati in cima a tre colonne avrete vinto la partita. 

Potreste pensare che sia molto facile conquistare le colonne 2 e 12, visto 
che sono molto più corte, ma dovete tener conto che i numeri 2 e 12 sono 
difficili da ottenere; il numero più facile è il 7 ed è per questo che la co¬ 
lonna 7 è la più lunga di tutte. Tutto sommato ogni colonna ha lo stesso 
grado di difficoltà. 
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PG$= " S " T '■ 0 P : filJ$= "DI" RfiMDflLL " LOCKWOOD " ^ JF=0 
REM STOP “ BV RfiMDflLL LOCKWOOD 

REM COPYRIGHT CO 1983 THE CODE WORKS 
REM BOX 6905. SANTA BARBARA. CA 93160 


REM flS OF 9/6/83 GF 

REM EDIZIONE ITALIANA : EDIGEO 1984 

GOTO62000 

: E$=" ^ ••• •• "+CRÌ: 

DIMJD C15 >:FORI=0TO15 :READJD CI>:NEKT 

DflTfl0.0.0.0.0.3.9.6.0.1.7.4.0.2.8.5 

DEFFNJ C X > =JD C PEEK C JS+X)AND15 >:DEFFNB C X > = C PEEK 

CJS+X>flND16:-=0 

FORI=0TO28:POKESID+1.0 :NEXT:POKESID+6.240 :POK 
ESID+4.17 

FQ=S ID+1 : VL^=S ID+24 : QI =3 = DI =CM--CRT : TN= 15 : SP=:WD 
•^2 ; *' ^ •■■/////// / •' 

DIMTC12>.XIC12).PIC12).PC 12).RC4).RRC6.1) 
DIMPSXC2.12).GCC2).WXC12).XC12).PFC2.12).PN$C 

2 '*1 ^ pc;:f ( 2 *1 

PRI NT " .^i!T-4J01" GI OC ARE " CONTRO " DI " ME " ? " " ; 
GOSIJE60000 : PR I NT : PET= C LEFT$ CI N$. 1 ) O " N " ) 

IFPETTHENPNf C1) = "TU":PN$ C 2) = "10":PS$ C1) = "TUO" 
:PS$C2)="MI0":GOTO210 

QI=20 :FORI = 1T02:PRINT"GIOCATORE"N. 'M ; :G0SUB6 
0000 

IFINf=""THENIN$="GIOCATORE""+CHR$ CI+48) 

PN$ CI)=LEFT$ CI m .8):PSt CI) =PH$ CI) 

NEXTI:QI=3 

GCC1)=81:GCC2)=90:CLC1)=10:CLC2)=14:EK=11 

FOR I =2T012 : T CI ) = 12-23*fflE3 C 7-1 ) : NEXT 

FORI=2T012 :P CI)=CRT+3#I-2+ C14+T CI))*WD:NEXT 

z $=" si_ - il" : PR I NT " :: m " ■ pr i nt - .i" ; tre c 19 ) j " " 7:tì 

PRINTTAEC16)""6""Z$""8M 

PRINTTRE C13);""5"" Z$Z$Zt ""9» 

PRINTTRE C10)j""4"" Z$Z$Z$Z$ZS "1 m 
PR INTTAB C 7 ) ; " " 3 •- " Z$Z$Z$Z$Z-ÌZ$Z$ " 11W 
PRINT" " "2" "Z$ZÌ^Z$Z$Z$Z$Z$Z$Z$" 12W 

PRINT" '•Z$ZtZ$Z$Z$Z$Z$ZtZ^Z$Z$"lf} 

PRINT""""""Z$Z$Z$Z$Z$Z$Z$Z$Z$Z$Z$"M 
PR INTTAE C 7 ) ; Z$Z$Z$ZJ:Z$Z^ZfZ^Zl: " W 
PRINTTAEC 10) ; Z$Z$Z$Z$Z$Z$Z$")a 
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PRINTTRE 13 ) Z$Z$Z$ZtZ$ " 

PRINTTfìE<lti>Z$Z$2f":tì 

PRIHTTfiE(19>;Z$"ì3 

POR I == 1702 : POR J=:2T012 : PSZ a . J > =0 : PP (I. J ) =0 : NEK 

TJ:cua;'=0:N[E>ai 

POR J=2'n:i 12 : NZ < J > =0 : HEKTJ 

PL=^2 

PRINT"»"TRÉ(31 'Enni 


PL=PL+1:IPPL>2THENPL=1 
P0RI=2T012 : I )^=0 ^ HEZT : PR=0 
PRIHT"SI"JC$ 

IP PET THEH 535 

PRIHT "gl"LEFT$C ". PL) ; "TURNO''DI •- " ; PSt(. PL) J OH 
Rft:GC(PL> + 128:' 

GOTO 540 

PR I HT " SS" LEFT$ < " . PL > ; P3$ C PL > ; " ■' TURNO ' " ; CHRJ 

<gC';:pl>+12S> 

I FPL:=2fiNriPETTHEN 1200 

GOSUE2200 : IFRì:="Q"THENPRINT"^" : END 

IFR$="R"THEN370 

PRINTU$. " a ZEiTOP - " : T=T 1+300 

F0RJ=2T012 

IFN(J>=0THEN720 

SD= 135/21<: PF ( PL. J ) /12:'; GO3UE2600 
IFPF PL. j :• •c=^T j then6S0 
cw(;pl;'=cw(;pl)+i :wv(;jj.=i 
FORK= 1 TOT U ) +1 : Z=P ( J > -SPi+iK 
POKEZ.GC(PL >:POKEZ+1.GC(PL > 
poKEZ+n I. CL pl > ; pokez+d i+1. gl c pl 
NE/TK 
GOTO720 

IFPSZ <; PL. J > >0THENL=P •: J -SPi^^PSZ C PL.. J > +PL-1 : POK 

EL.100-POKEL+DI.BK 

L=P < J > -SPil^PP PL.. J > +PL-1 : POKEL. GC ( PL ) 

POKEL+ni.CL'iPL) 

psz<pl.j:>=pf<pl. j> 

GOSUB2650:NEXTJ 

IFTI<TTHEN723 

PRINTUi;;Bf 

IFCW'::PL>>=3THEN1100 

GOTO480 

PRINTUt; " a- ZRP ! ! •• " : SD=255 : TN=25 




STOP 253 


875 GOSUB2600 : FORZ= 1TO750 : \\EKT 
380 GOSUB2650:FORZ=1TO750:NEXT 
890 PRintuì:; FCiRJ=2T012 

900 IFKCJ>=0THEH960 
910 IFPF < PL, J >T < J ) THEN930 

920 L=P < J > -SP*PF PL. J > +PL-1 : POKEL .100: POKEL+DI. BK 
: 0010950 

930 PRI NTLEFTf ( IJ$. 13-T ( J > > ; TRE < 3* J-2 ) ; RI GHTf C STR$ 
•:;j>.2:' 

950 PF ( PL. J > =PS‘i < PL.. J > 

960 NEXTJ:GOTO480 
1000 GOSIJE2490 
1020 T=ri(i;-:GOSLIE1900 
1030 T=M(2 >:GOSUB1900 
1040 I FPL=2fiNriPETTHENF0RZ== 1TO2000 : HEXT 
1050 GOTO540 
1100 REM 

1105 RESTORE:1=1:Z=18:T=TI 
1110 PR I NT " a" ; et- : F0RK= 1TO30 

1112 IFPNf(1) = "TU"THENPRINT" CHR $< Z);"VINCI'" ; PH$ 
tPL>:T=TI+6:GOTO1120 

1114 I FPN$ e 2 ) = " 10 " THENPR I NT " 53" CHR$ C Z ) ; " VINCO •- " ; PN$ 
<PL>:T=TI+6:GOTO1120 

1115 PR I NT " ÌS" CHRf •; Z > ; " VINCE ' " J PNJ: < PL > : T=T I +6 

1120 I FK= I THENREFiriSri.. I : I =K+1 : GOSUB2650 : GOSUB2600 

1125 IFTI<TTHEN1125 

1130 Z=(Z+12S;:'flNri255 

1140 NEXTK 

1145 GOSIJB2650 

1150 PR I NTU$ ; " HNCORFI? " : GO3UB60000 
11601 FLEFTì: ( I N$ ..!:• = " N " THENEND 
1170 GOTO240 

1180 DflTR 214.4.214.2.214.6.202.2..214.2.255.2.241. 
2.214.0 

1200 IFO0THEN1230 

1210 J=0:FORI=2T012:1FX <I)THENJ=J+1 : IFPF(PL. I> >T CI 
;'THEN580 
1215 NEXT:J=J/3 

1217 IFRND ( 1 ) * <; 7-fiES < 7-J > ) >FRTHEH 1230 
1220 GOTO580 

1230 GOSUB2300 : PR INTUÌ " SJTSPETTR " 

1240 TS=0:FORI=1TONP 
1250 R1=RR(I.0> :R2=RRa. n 
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1260 

1290 

1300 

1310 

1330 

1400 

1410 

1420 

1430 

1500 

1501 
1505 
1520 
1530 
1540 
1550 
1800 

1810 

1815 

1820 

1825 

1830 

1835 

183? 

1840 

1850 

1860 

1900 

1910 

1920 

1930 

1950 

I960 

2000 

2005 

2010 

2020 

2030 

2040 

2200 


GOSLIB1400 

NEXTI 

PRIHTU$;B$ 

IFTS=0THEN870 
GOTO1000 

F0R2=2T012 •• :K 1C2) (2> : P1 <2) (.PL,Z> - NEXT2 : C 
1=C 

SC=0:T=R1:GOSUE1500:T=R2:GOSUB1500 
IFSC>TSTHEHTS=SC : MC1 )=R1 : r'1(2>=R2 : N=I 
RETURN 

IFX1 < T > =0fiNDi:: 1 =0THENRETIJRH 
IFWX < T > ORP1 a > >T ■: T > THEHRETURN 
SC=SC+1 

IFX1':T>THENSC=SC+2 

IFP1< T > =T < T > THENSC=SC+5 

IFXKT>=0THENC1=C1-1 

PI <T>=P1 CT^' + l : XI •:T) = 1 : RETURN 

PRI NTU$ ; LEFT$ . PL > ; ’* QURLE " COPPI fi? " : QI =3 : G 

OSUB60000 

PR I NTU$ ••• " : PR I mtB$ 

IFLEFT$ ( IN$ .1> = "Q"THEN V=0 : Rt= "Q": RETURN 
IFI N$= " '■ flNDNP= 1 THEN I N$= " 1 " 

IFIN$=""THEN1800 

M=VfiL <IN$ >: IFIN$="0"THENRETURN 

IFri<lORM>NPTHEN1800 

GOSUE2490 

V=0:T=RR<M.0>:GOSUB1900 
T=RRCM.1>:GO3UB1900 
RETURN 

IFWXCT)THENRETURN 
I =PF •: PL. T > : IFIOPSX < PL. T > THEN 1950 
I Fi::>0THENGO3UB200e : X C T > = 1 : 0=0-1 
RETURN 

IFI<=T(T)THENGOSUE2000 
RETURN 

311=255/21<; PF < PL. T > /12 > : GO3UB2600 

IFPF < PL. T :• =P3X C PL. T ) THEN2020 

L=P ( T > -SPifPF PL. T ) +PL-1 : POKEL. 100 : POKEL+DI. BK 

PF(PL.T>=PF-;PL.T) + 1 

L=P<T>-3P#PF<PL/T>+PL-1:POKEL.214 :POKEL+DI.OL 
(PL> 

V=1:FR=FR+1:GOSUE2650 ^ RETURN 
IF0=3THEN2235 
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2205 

2210 

2215 

2220 

2230 

2235 

2240 

2250 


PRiNTU$; ’■ scwYLjyo' ■' senLJff?' ' " " 

QI=3:GOSUB60000:R^^LEFTfCIN$.1> 
PRINT"Xn"JB$;BfjB$; 

I FR$= " S ’* ORRf = " Q " THENRETURN 

I FRt <> " " fìHDRfO " C " THEN2205 

R$="C":GOSUB2300:GOSUB2700:IFZPTHEHRETURH 

V=0 : GOSIJB1800 : IFVTHEN2205 

RETURN 


2300 PRINT"a(P" 
PRINT"ìaPJ" 
F0RI=1T04 


2305 
2310 
O'-.'.OQ 


2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2490 

2500 

2510 

2520 

2530 

2600 

2650 

2700 

2710 

2720 

2730 

2995 

60000 

60010 

60020 

60030 


:PRINTTRB C 30 >;B^:PRINT"W"J TRE(30 >; 

■FORI = 1T06:PRINTB$; :NEXT 
•• R < I :• = I NT C 6J»!RND + NEXT 

PR I NT " awa" : PR I NTTRB < 33 ) ; " S" J CHR|: C R C1 > +48 ) ; " lil 
".iCHRf(R';2>+43> 

PR I NT " jtìtì" TRE < 33 > ; " S" ; CHR$ R ( 3 :• +48 > ; " W" ; CHR$ ( 
R(4 > + 48 ) 

T=R ( 1 y +R 2 ) +R ( 3 ) +R <! 4 ) 

NP=0:FORI=1T03:FORJ=I+1T04 
Rl=R<i:'+R(J> ;R2=T-R1 
IFNP=0THEN2410 
FORri=lTi:iNP 

IFRR •: M. 0 > =R 1 RNIiRR ( M. 1 > =R2THEN2420 
NEXTN 

NP=NP+1 : RR < NP. 0 > =R 1 : RR •' NP. 1 > =F;2 
NEXTJ.I 

PRINT"HS":F0RN=1T0NP:GOSUB2500:NEKTM 
RETURN 

PRINTLEFT$< . ri+2> ; " a" ; 

PR INTMI m < STR$ < M >. 2 ) j " : ; 

PRINTRIGHT$(STR$ < RR(M.0 >).2 > J"'"J 
PR I NTR I GHT$ C STR$ >: RR < M.. 1 > >. 2 > 

RETURN 

POKEVL. 15 •• POKEFQ. SD : TN=15 : RETURN 
POKEVL.0 : RETURN 
ZP=0:IF C>0 THEN RETURN 
FOR Z=1 TO NP 

IF X'::RRCZ.0>> or >=:CRR(Z. 1>> THEN RETURN 

NEXT Z 'ZP=1: RETURN 

RETURN 

INi:=" " " : ZT=TI : ZC=2 : ZD$=CHR$<20> 

GETZ$ •• IFZì:C>" "THEN60070 

IFZT<:=TITHENPRINTMIDf ( " 'l". ZC. 1 )"Il" ; : ZC=3-ZC 

:ZT=TI+15 

GOTO60010 
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60070 Z=FISC (Z$)- ZL=LEN < I > : IF C ZflHD 127 > <32THENPR IHT 
"'ir; :GOTO60110 
60090 IFZL>QITHEH60010 
60100 I N$= IN$+Z$:PRINTZ$; ZD$ ; Z $; 

60110 I FZ= 13THEHI Nf =ri I Dì: U . 2 > : PR I HTCR$ ; : RETURN 
60120 I FZ=20fiNriZL> 1THEHI N$=LEFT$ C I H$. ZL-1 ) : PR I NT " II" 
; ••GOTO60010 

60130 I FZ= 141 THENZ$=CHRi: ( -20* ( ZL> 1 ) > : F0RZ=2T0ZL : PR I 
NTZ$; : NEKT : GOTCI60000 
60140 GOTO60010 

61000 CRT=1024 : VIC=53248 : WD=40 : CR$=CHR$<: 13> : SID=542 
72 :JS=56320:CN=55296 
61010 QL=214 : Q I=254 : RETURN 

62000 G0SUB61000 •• POKEVIC+32.0 : POKEVIC+33 > 0 : LN=LEN ( P 
G$> :TE=<40-LN:'/2 

62010 PR I NT " USiSlslfiliia" TRE C TE > LEFTf < " '■ ■■ ' ' ' ' ' ' ' ^ '■ " 

•' ' " ".. ln;> 

62020 PRINT " a" TREC TE >PGf : PRI NT " 3" TRE ( TE >LEFT$< " ^ ' 

62030 PR I NT " Wtì" TRE ( 40-LEN C fìUt > > /2 ) flU$ 

62040 f1S$= " BRTTI RETURN '' PER 'INIZI RRE " 

62045 I FJFTHENMS$= " PREM riL' JOVSTICK '' PER '■ INIZI RRE " 
62050 TB= C < 40-LEN < riS$ > > /2 > 

62060 PR INT " WiflWMt" TRE < TE > t1S$ ■ PR I NT " jaBOMBMPÀ. ' ' ' ' '' " ' ' 
•' ( C ) '■ 1 983 " THE '■ CODE ^ WORKS " 

62070 GETINf: IFIN$<>""THEN62120 

62080 IF < PEEK(JS > RND16 > =0THEN62120 

62090 PRINT"af!Mi!li!Mtìi!M«i^^ TRE( TE>LEFT$( "li^". K+1 >L 

eft$':ms$.q> 

62100 Q=Q+1:1 FQ>LEN C riS$ > THENQ=0 : K= 1 -K 
62110 GOTO62070 

62120 CLR : PR I NT " Hsl" : G0SUE61000 : GOTO 100 




Torte 

(joystick) 



Siete finiti in un classico film comico, nella scena delle torte in faccia! 
Voi e il C-64 dovete tentare di colpirvi con delle torte di panna, con la 
possibilità di spostarvi quando una torta arriva troppo vicino. 

Il campo di gioco è una scacchiera di 10x10 caselle; all’inizio del gioco 
dovrete scegliere in quale quadratino nascondervi e la vostra posizione 
sarà segnata con una "X” verde. Anche la posizione del C-64 è fissata in 
qualcuna delle caselle, ma né lui può vedere voi, né voi potete vedere lui. 
Ad ogni turno avete la possibilità di muovervi o di tirare una torta; utiliz¬ 
zate il joystick per operare la scelta e premete il pulsante per la confer¬ 
ma. Se avete scelto di spostarvi, potrete farlo solo in uno degli otto qua¬ 
drati adiacenti, ma non in uno dove è già atterrata una torta (segnato da 
un asterisco o da un numero); se la mossa non è corretta, il cursore riap¬ 
pare e dovrete ripeterla. 

Se al contrario decidete di tirare, posizionate il cursore nel quadrato che 
avete scelto come bersaglio e premete il pulsante. Dopo il lancio — se 
non avete colpito l’avversario — vi sarà indicato, a titolo di aiuto, la di¬ 
stanza alla quale la vostra torta è arrivata dal bersaglio. Questo numero 
è calcolato col teorema di Pitagora e se ve la cavate con le radici quadra¬ 
te potrete avere una stima abbastanza esatta della posizione del C-64, 
sempre che non si sia mosso nel frattempo. 

Le distanze degli ultimi tre tiri indicati vengono mantenute sul video a 
fianco della scacchiera, individuate da un numero (1, 2 e 3) che ha un suo 
corrispondente nel quadratino dove è atterrata la torta. Dal quarto in poi 
invece i lanci vengono individuati da un asterisco. 

Nel frattempo, anche il C-64 cercherà di colpirvi o di schivare le vostre 
torte, giocando con le stesse regole e le medesime indicazioni (anche se è 
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molto rapido ed efficiente nel calcolare le triangolazioni adatte): vi con¬ 
viene quindi muovervi abbastanza spesso. 

La partita termina quando uno dei due ha colpito l’altro in piena faccia: 
nel caso sia il C-64 a vincere, vi fornirà anche una salvietta per togliervi 
la panna di dosso! 


CfìRfìTTERI SPECIALI UTILIZZATI 


SIMBOLI GRAFICI 
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— 
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4 
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4 
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COMANDI & COLORI 






S RVS ON 
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OFF 
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0 PG$= " '■ T '■ 0 R " T E •' " ; RUt = "DI' GLEH " FISHER " : .JF= 1 
1 REM PIEGRAM — BV GLEN FISHER 

4 : 

5 REM COPYRIGHT CO 1983 THE CODE WORKS 

6 REM BOX 6905. SANTA BARBARA. CA 93160 
8 : 

10 REM AS OF 9/6/83 GF 

50 REM EDIZIONE ITALIANR: EDIGEO 1984 

90 GOTO62000 

100 DIMBXC10.10>.HSC4..3).CSC4.3>. JDC15> :QI = 10 

101 FORI=0TO15 : READJDCI>:NEXT: DATA0.0.0.0.0.3.9.6 
.0.1.7".4.0.2.8.5 

102 DEFFNJ C X > =JD C PEEK C JS+X)AND15 >:DEFFNE C X > = C PEEK 
C.JS+X:'AND16>=0 

120 FORI = 1T09:READRC CI>.CC C D:NEXT 

130 DATAl.-l.1.0.1.1.0.-1.0.0.0.1.-1.-1.-1.0.-1.1 
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160 

200 

500 

510 

600 

620 

630 

650 

1000 

1020 

1030 

1040 

1050 

1060 

1070 

1100 

1110 

1120 


1130 

1140 

1150 

1200 

1210 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

14S0 

1490 

2000 

2010 

2020 

2030 

2100 


Il m.-' / ••• f ••• ìt ///.> f /•//•/// / ••• Il 

FORI =0TO4 : FOR J=0TO3 : HS CI. J > =0 : CS I. J > =0 : HEIKT J 
. I :HS=0:CS=0 

FOR I = 1TO10 : FORJ= 1TO10 : B'/. CI..J ) =0 : HEXTJ. I 
GOSUE9000:HR=0:HC=0:R=5:C=5 

PRIHT" ÌODOVE'STAI"?":GOSUES100:1FC$="-"THEN620 
HR=R : HC=C : GOSIJE9300 : GOSIJB9400 : PRIHTRVì:; SV$ 

PR= I HT RHD < 1 > # 10 ::• +1 : PC= I HT C RHD + l 

PRIHT"a" ; BL$ ■ PRIHTBLf "H" : GOSIJES200 
IFIHì:="Q"THEH3120 
T$="fiHD":IFVH=0THEHTf="TIR" 

PR I HT " a" J EL$ : PR I HT " SSIDOVE •' STRI ' " ; Tf ; " RHDO '' ? " 
R=5:C=5:IFVH=1THEHR=HR:C=HC 

sb=b;ì c hr . Hc > : b:ì < hr . hc > =2 : gosues 100 : bv. ì hr .hc>- 

SE:IFC$="'"THEH1000 
IFVH=0THEH1200 

IFRES(R-HR > >1ORRES C C-HC > >1THEH1050 
IFB;^<Rj::><>0THEH1050 

SR=HR : SC=HC : HR=R : HC=C : R=SR : C=SC : GOSIJE9400 : GOS 
IJE9300:PRIHTRV$;SV$ 

R=HR:C-HC:GOSUB9400:GOSUB9300:PRIHTRV^j SVf 
FORI=0TO2:CS a.3 > =CS a.3)+5 :HEXTI 
GOTO2000 

ifb;^::rj:><>0thehi050 

IFR=HRRHDC=HCTHEH1050 

HS ( 3.0 ) =R : HS < 3.1 ) =C : HS < 3.2 > = I HT ( 100*SQR •; < R-PR 
)T2+':C-PC)t2))/100 

FORI=0TO3: 11 = I +1 :R=HS U.0 >:C=HS <1.1) 

I FR>0THEHE‘: < R. C > =B:< ( R. C > +1 : GOSIJE9300 : GOSIJB940 
0:pRIHTRVt;3V$ 

:FORJ=0TO3:HS CI.J > =HS C11.J >:HEXTJ 
HEXTI :PRIHT"Ì«Q" 

FORI=2TO0STEP-1 

IFHS< 1.0>>0THEHPRIHT3-I ; HSU > 2 ) ; "ir ^ " 

HEXTI 


IFHS<2.2>=0THEH3000 

HS=HS+1:GOTO2000 

PR I HT " a" ; BLt ■ PR I HTriH$ •' •' •- " 

R=PR-HS(2.0> : C=PC-HS':;2. 1 > : Ii=R#R+C*C 

IFri<=2THEH2100 

IFRHD ( 1 ) >11/100THEH2500 

R= I HT C RHD 1 > # 10 > +1 : C= I HT C RHD < 1 > # 10 +1 
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2120 

2130 

2135 

2140 

2150 

2500 

2510 

2520 

2530 

2540 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2700 

2800 

2850 

2860 

2900 

2910 

2920 


2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 


3015 


R=PR+SGN<R-PR>:C=PC+SGH<C-PC> 

ifbjì':r,ck>0then2100 

PC=C • PR==P 

PRIHTDN$/"e5riU0V0""" 

GOTO1000 

IFCS>2THEN2600 

R*IHT<RND<n3«10) + l ••C=INT'::RNDCl>Jtfl0:' + l 

ife;ì':r.c>o-0Then2510 

IFR=PRflHDC=PCTHEH 2510 

GOTO2900 

MR=0:MC=0:MS=-1 

FORI = 1TO10 :FORJ=1TO10 :S=0 

IFB?ia. J)O 0 THEN 2 S 50 

R=I : C=J : GOSIJB9300 : PRIHT"aa7'Hr’ ; 

FORK=0TO2 : R=CS < K. 0 > C=CS < K. 1 > : D=CS C K. 2 > : W=CS C 
K.3):L=D-W'H=D+W 
10= I -R : J0=J-C : T= 10s^ 10+J0* J0 
I FL<=TfiNDT<=HTHEHS=S+1 
HEKTK 

iFs>riSTHENr‘iR=i : ric=j : ris=s 

R=I : C=J •• GOSIJB9400 : PRIHTRVì; SV# 

NEXTJ.I 
R=riR : C=MC 

CS<3.0)=R:CS':3. l)=C:CS(3.2> = ':R-HR>r2+(:C-HC>t2 
• CS(3 ^ 3)“0 

FORÌ= 0 TO 3 : 11 = 1 + 1 :R=CSa. 0 ) :C=CS<I. 1 > 

I FR>0THEHB?: < R. C ) =B^X R. C > -1 : GOSUB9300 •• GOSIJB940 
0-PRIHTRV$;SV$ 

FOR.J=0TO3 CS a. J ) =CS C11. J ) : HEXT J 

NEXTI : PRI HTDNf ; " 5TIRO " : PRI NT " Si" ' ■- " 

FORI= 2 TO 0 STEP- 1 :IFCSCI. 0 >= 0 THEN 2970 

PRI NT " a" J 3-1 ; " II" ; I NT < 100 *SQR ( C 

S<I.2:O)/100 

NEXTI :PRI NT " 3 " 

IFCS< 2 . 2 >= 0 THEN 3000 
CS=CS+ 1 : GOTO 1000 
IF BXCR.CXO THEN 3015 

SH=0 : PR I NT " a" ; BL$ ■■ PR I NT " «" ; " MI " Hfì I " PRESO " : GOT 
0 3020 

SH= 1 : PR I NT " a" ; BL$ ■■ PR I NT “ a" ; " TI " HO " PRESO " 
GOSUB9300:FORI = 1TO100 :PRINTMID$("ai". (1RNDI) + 
i> 1); "ifir j 
FORJ=1TO10:NEXTJ. I 
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3030 I FSHTHEHR=PR : C=PC: : GOSIJB9300 : PRIHT " a<" : PRIHTDH 
^ ^ " St*:*'' = ■' I n ■' " 

3100 PR I NT~»" ; : G0SIJB8100 
3110 IFVWTHEN500 
3120 PRIHT"n":EHD 
8100 HO=0 
8110 TM=0:SW=1 

8115 PR I NT " Ì031 OCR I •- PNCORfì? " SE I " HO " " 

8120 IF TICTM THEN 8150 

8 130 PR I NT " H" ; TfiB < 14+N0*4 >M I m <. " SSl" . SU. 1 ) ; M I D$ < " 
SIN0-'".3#N0+1.3> 

8140 SU=3-SU:TM=TI+15 

8150 JD=PEEK<JS)flND31 : JB=<Jri<16> : JD=JDaND15 

8160 IF JB fiND JD=15 THEN VN=(NO=0>: RETURN 

8170 IFUD RND 8)=0 RND NO=0 THEN NO=l:GOTO 8115 

8180 IF<Jri RND 4>=0 RND NO=l THEN NO=0:GOTO 8115 

8190 GOTO 8120 

8200 NO= 1 : PR I NT " BLS: " S" j 

8210 TM=0:£U=1 

8215 PR I NT " iO'IIJO VI 0 ■■ ■- TIRI ? " 

8216 IF FNB<0;' THEN 3216 
8220 IF TICTM THEN 8250 

8230 PR I NT " a" TRB < N0#8 > ; MI DI:•• aO", SU. 1 > ; MI D$ C " MUOVI 
■■■TIRr'.5stiN0+1.5> 

8240 SU=3-SU:TM=TH-15 

8250 JD=PEEKCJS>RND31 :JB= CJDC16>:JD=JDRND15 
8255 GET INì::IF IN#="Q" THEN RETURN 
8260 IF JB RND JD=15 THEN VN=':NO=0> : RETURN 
8270 IFUD RND 8)=0 RND NO=0 THEN NO=l:GOTO 8215 
8280 IF(JD RND 4>=0 RND NO=l THEN NO=0:GOTO 8215 
8290 GOTO 8220 

9000 Rì:=" H- f-f-H - . f —. f . f - i " : S$=" ri • I ■- I •' I ' I '' I ' 

I r I I " 

9010 BP=18 

9050 PRINT":itì" :PRIHTTRBCBP>; "SI r-r - r — r-■ . i r . 1 - 1 - T - 

t":PRINTTRB<BP>;S^ 

9060 FORI* 1T09 : PRINTTRBCBP; R$ ■ PRINTTRE CBP>;S$ : NEX 
TI 

9070 PRINTTRBCBP) ^ ' ■ ■ ' ■ 

9080 RETURN 

9100 SU=l:TM=0 

9105 IF FNB<0::' THEN 9105 

9110 PR I NT " : PR I NTTRB BP+1 > J 
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9140 

9150 

9160 

9170 

9200 

9220 

9230 

9240 

9250 

9260 

9270 

9300 

9400 

9410 

9420 

9430 

9900 

9910 

9920 

60000 

60010 

60020 

60030 

60070 


60090 

60100 

60110 

60120 


60130 


60140 

61000 


61010 

62000 

62010 


GOSIJB9300 : GOSUB9400 : G0T09170 
T=FNJ'::0) : IFT<>5ORFNB':0>THEH9200 
IFTI<TriTHEN9150 

PRIHTMID$<;"ai".SW. 1>; "IH"J :TM=TI + 15-S 

W=3-SW-GOTO9150 

PRINTRVI:;SV^; "II"; : IFT=s5THENRETURN 
R®R+RC(T >•C-C+CC(T) 

IFR<1THENR=10 
IFR>10THEHR=1 
IFC<1THEHC=10 
IFC>10THEHC=1 
SW=1 :Tri=0: GOTO 140 

PRI NT " a" : POKEQL > 2+2i*sR : PR I NT " 1" ; TflB ( BP+2*C- 1 > ; 

: RETURN 

S V$=ri I Dt C " ^ 123*' ". 1 +flBS ( BK C R. C > >. 1 > 

I FR=HRnNriC=HCTHENSVf = " X" 

RV$=M 1 1\$ ( " 0kk". 2+SGN ( BX < R. C :> A ) 

RETURN 

FOR 1=0 TO 999:P0KE CRT+1.49 :NEXT 
GET T$-IF T$="" THEN 9910 
RETURN 

IN|:=": ZT=TI : ZC=2 : ZD$=CHRt (20) 

GETZ$ : IFZfO" "THEN60070 

IFZT<=TITHENPRINTMiri$(" "l".2C. 1); "II"; :ZC=3-ZC 

:ZT=TI+15 

GOTO60010 

Z=RSC: ( Z$ ) •• ZL=LEN ( I H$ ) : IF ( ZRND127 ) <32THENPR I NT 

"•'ir; ••GOTO60110 

IFZL>QI THEN60010 

I N$= I N$+Z$ : PR I NTZl: ; ZD^ ; Z$ i 

IFZ=13THENIN$=MI(IN$.2):PRINTCR$; : RETURN 

IFZ=20RNriZL>lTHENIN:f=LEFT#( IN$. ZL-1 ) •• PRINT"!!" 

;■GOTO60010 

I FZ= 141 THENZ$=i:;HR$ ( -20if: ( ZL> 1 ) ) •• F0RZ=2Ti:iZL •' PR I 

NTZt;:NEXT:GOTO60000 

GOTO60010 

i:RT= 1024 : V10=53248 : WD=40 : CR$=CHR$ ( 13 ) : S111=542 
72 : .JS=56320 : CM=55296 
QL=214:QI=254:RETURN 

G0SUB61000 :POKEVIC+32.0 :POKEVIC+33.0 :LN=LEN < P 
G$):TB=C40-LN>/2 

PR I NT " ."iPluiPMia" TRB ( TE ) LEFT$ ( " '' •' •' •- -■ •" " •' " '' " •- •- '' •' 

•' LN) 
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62020 PRINT"a"TflB < TB > PG$:PRINT"a"TfìB C TB > LEFT$(""""' 

^ ^ ^.. ^ 

62030 PR I NT " Mtì" TflB < C 40-LEN < fllJ$ > > /2 > fìU$ 

62040 MSf = " EflTT I " RETURN '' PER -INIZI ARE " 

62045 IFJFTHENMS$=" PREMI •' IL-'JOYSTICK "PER ^ INIZIARE" 
62050 TB= < < 40-LEN < MS$ > >/2 > 

62060 PR I NT " WaWBk" TflB < TB > MS$ : PR I NT " JlfiMBlPlWa.-' " " " 

•' < C ) •-1933 '■ THE " CODE " WORKS " 

62070 GETIN#:IFIN$<>""THEN62120 
62030 IF(PEEK < JS > AND16 > =0THEN62120 
62090 PR I NT " TfìB < TE ) LEFT$ ( " . K+1 ) L 

EFT^<MS$.Q> 

62100 Q=Q+1:1FQ>LEN C MS$ > THENQ=0:K=1-K 
62110 GOTO62070 

62120 CLR:PRINT'Ma":GOSUE61000:GOTO100 






La giornata di un pipistrello non è certo facile, come potrete realizzare 
giocando a Bat; dovrete imparare a schivare le pareti della grotta, a deci¬ 
dere rapidamente se il cibo che vi si trova davanti è commestibile oppure 
no, a tentare di sopravvivere dosando le vostre energie; dovrete volare 
continuamente alla ricerca di insetti, alcuni dei quali sono gustosi ed 
energetici, altri invece sono pessimi e una volta ingeriti diminuiranno le 
vostre forze. 

Gli insetti contenuti nella grotta hanno i seguenti valori: 


Blu 

insetto gigante 

25 calorie 

Verde 

scarafaggio da colazione 

10 calorie 

Giallo 

mosca da banchetto 

raddoppia le calorie 

Rosso 

insetto indigesto 

dimezza le calorie 

Grigio 

insetto qualsiasi 

non ha valore 


Usate il joystick per controllare il volo del pipistrello, che sarà accompa¬ 
gnato da un suono. Ricordate che consumate energie anche stando fermi; 
all’inizio del gioco avrete a disposizione 50 calorie e per complicarvi la 
vita, il radar naturale di cui sono dotati i pipistrelli non funzionerà molto 
bene e ogni tanto andrete a sbattere contro le pareti. 

Ci sono alcune tecniche che imparerete col tempo: la più importante è di 
non colpire il lato alto dello schermo, per via del forte rimbalzo; un’altra 
consiste nel tentare di volteggiare con piccole spinte, cercando di muo¬ 
versi lateralmente. 

Il gioco ha termine quando finiscono le calorie a vostra disposizione; 
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nell’angolo in alto a destra potrete vedere anche il tempo di sopravviven¬ 
za raggiunto. 

Anche se all’inizio Bat può sembrare un gioco abbastanza difficile, dopo 
qualche prova vi sentirete un vero pipistrello! 


- CRRfìTTERI SPECIALI UTILIZZATI 

SIMBOLI GRAFICI 


X SHIFT V 


SHIFT X 

t 

SHIFT S 

f SHIFT A 


COMM + 



COMANDI & COLORI 





SI RVS ON 

1 

RVS OFF 


HOME 

n CLERR 

» 

CRSR-D 

n 

CRSR-U 

Il CRSR-L 


CTRL CVN 

« 

CTRL WHT 

^ CTRL RED 


CTRL PUR 


CTRL VEL 

SI COMM CVN 

II 

COMM GRN 

n 

COMM BLU 

ìì COMM PUR 






0 PG$= "B••• A••• T" : AIJ$= "DI-'C. T. •-NADOVICH" : JF= 1 
1 REM BAT — BV C.T.HRDOVICH 

4 

5 REM COPYRIGHT (C> 1983 THE CODE WORKS 

6 REM BOX 6905. SANTA BARBARA. CA 93160 


7 : 

10 REM AS OF 9/6/83 GF 
50 REM EDIZIONE ITALIANA : EDIGEO 1984 
90 GOTO 62000 
100 GOSUB 5000 

103 FORI =0TO28 POKESID+1.0 : NEXT : POKESID+6.240 : POK 
ESID+4.17 


104 VL=SID+24 

130 DIMT < 29 > : FOR I =0TO29 •• T ( I > = I NT < 32# 


2ta/12>:-l. 


5>:NEXTI 

140 Q8=SID+1:PRINT'LT :POKE VL.15:P0KE Q8.0 
150 DC1>=26:D(:2> = 18:D(;3)=25:D(4>=42:D(:6>=41 :D(7> = 
58:D<8>=50:D':;9>=57 




610 

620 

630 

640 

700 

1000 

1010 

1020 

1030 

1040 

1090 

1100 

1110 

1120 

1140 

1150 

1180 

1185 

1190 

1200 

1600 

1700 

1750 

1800 

1850 

1900 

1910 

1920 


G=9.8:REM fìCCEL GRAVITfìZIOHflLE 
IJ=.3:REM COEFF DI ATTRITO 
A=20-REri ACCEL DI SPINTA 
lj= 1 -u : G=G/ ( 9. 8*4 ) : A=A/ <9.8*4 ) 

FOR 1=1 TO 9 

VX < I ) = VX < I > *A : VV < I > =VV < I ) * A : NEXT I 

REM INIZIO DEL GIOCO 

REST0RE:GF=.142:TP=50 

TQ=TI:2W=32:S0=1024 

T=PEEK < VIC+17 >:POKE VIC+17.0 

POKE VIC+33.1 : PRI NT " 72" ■ POKEVIC+33.0 : POKEVIC+ 

17^ T 

PRINT"«iia'- " '■ "laCALORIE : ■■ ^ 'Ha- ' ' StfrEMPO - " " ' 

///'/'/'/ Il j 

FORI = 1T023:PRINT" IW'"; :NEXT 
F0RI = 1T039 : PRINT"III' " ; •• NEXT 
FOR I = 1T024 : PR I NT " ni ' " J : NEXT 
PRINT"iaa" - GOSUE^GGO 
X=20 : V=12 : VV=0 •• VX=0 : TI$="000000" 

K=S0+1NT < X+.5)+WD*INT < V+.5 > 

R=PEEK<K):TP=TP-GF*<TP/50+l) 

IFQ9=1THENN=255:Q9=0: GOTO1040 
IFQ9=0THENN=127:Q9=l: GOTO1040 
IFR=32GOTO1150 

IFR=214THENTP=TP+25:P0KEQ8.T<21>:GOTOl140 
IFR=88THENTP=TP+10 :P0KEQ8.T < 24 >: GOTO1140 
IFR=83THENTP=TP*2 : P0KEQ8. T<29> •• GOTOl 140 
IFR=42THENP0KEQ8.T<1):TP=TP/2 
P0KEK-CRT+CM>1:GOSUE4000 
POKEK.N 

GETQ$: IFQ$="Q"THENPRINT"ZI" :END 
C=FNJ<0> 

TP=TP-GF*A 

IF CO-5 THEN POKE Q8. T<SD<C) > : VX=VX+VX<C) : VV= 
VV+VV<C> 

VV=VV+G:NV=V+VV:NX=X+VX:P0KEQ8.0 
IFNX>38THENNX=33 VV=IJ*VV : VX=-VX*U 
IFNX<1THENNX=1 : VV=U*VV : VX=-VX*IJ 
IFNV>22THENNV=22 : VX=IJ*VX : VV=-VV*IJ 
IFNV<1THENNV=1:VX=U*VX:VV=-VV*U 
V=NV:X=NX 
IFTP<0GOTO3000 
N=32:POKEK.N 
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1930 IFQ9=1GOTO1990 
1940 POKEQ8.0 

1950 PRINT'’aa";TfìB(:i5>j INT<TP>; "ir" :PRINT"!a";TfìB<2 
7>; 

1960 PRINTMID$<TI$.3.2>" : 5.2> 

1990 GOTO1000 
2000 F0RI=1T05 
2020 F0RJ=1T0BN(I> 

2030 BX=2+1 NT < 36#RNri U > > 

2040 BV=2+INTC21it!RNIi(:i>> 

2050 POKE QL.BV+1 :PRINTTflB(BX >;" T' ;BG$ <I> 

2060 HEXT 

2070 NEXT:pRINT"aa" 

2999 RETURN 

3000 REM DUST TO DUST 

3001 PRI NT " aWBaMBlWlMiiltì" ; TflB < 15 ;• ; " SEEI MORTO!" : REST 
ORE 

3005 F0RK=1T011 

3006 REflDQ5.Q4:Q4=200itiQ4 

3007 P0KEQ8.TCQ5) 

3008 F0RJ=1T0Q4:NEXT 

3009 POKEQ8.0 

3010 NEXT 

3012 DfiTfl5.4,5.3.5.1.5.4.8.3.7.1.7.3.5.1.5.3.4.1.5 
.4 

3030 PRINT'M":GOSUB3100:IFVNTHEN500 
3050 POKEVL. 0 :PRINT"□S": END 
3100 NO=0 

3110 TM=0 : SW= 1 •• PR I NT "«IOGHI" HNCORfl? "SEI" NO " H" 

3120 IF TKTM THEN 3150 

3130 PRINTTFIB ( 14+N03<«4 ) ; MI Df < " WJ". SW. 1 > j MI Df < " " SI NO 
"".3#N0+1.3); "T 
3140 SW=3-SU:TM=TI+15 

3150 JD=PEEK < JS > RND31 :JB=(JD<16 >:JD=JDfiND15 
3160 IF JB AND JD-15 THEN VN=<NO=0):GOTO3200 
3170 IFCJD AND 8>=0 AND NO=0 THEN NO=l:GOTO 3110 
3180 IF<JD AND 4>=0 AND NO=l THEN NO=0:GOTO 3110 
3190 GOTO 3120 

3200 PR INTTAB C 1 4+N0#4 ) ; " al" ; MI Dt < " " SI NO " " . 3# NO+ 1.3) 

: RETURN 

4000 BX=2+1 NT < 36i*iRND < 1 ) ) 

4010 BV=2+INT<21l*!RHD(l)) 

4040 NB=INT<RNDCl)its5+l) 
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4060 

4999 

5000 
5010 

5020 

5030 

5040 

5060 

5070 

5090 

5100 

5110 

5120 

60000 

60010 

60020 

60030 

60070 

60090 

60100 

60110 

60120 

60130 

60140 

61000 

61010 

62000 

62010 

62020 

62030 

62040 


POKE QL.BV+1 :PRIHTTflB C BX >;"H" ; BG$ < NB) 

RETURN 

REPD T$:IF T$0"£" THEN 5000 

Din SD':9)/v'X(9)/v'VC9).JD<15).BG(5>>EGt<5>.BH< 

5> 

FORI=0TO15:REfiDJD(I>:HEXT:DRTflf.0.0.0,0.0.3.9 
^ 6 ^ 0 ^ 1 ^ (’'^ 4 < 0 ^ 2 ^ 3^5 

DEFFNJ < X > =JD(PEEK C JS+X)RND15 > = DEFFNB(X) = < PEEK 
<JS+X:'l=lND16)=0 

FOR 1 = 1 TO 9 : READ SDU :•/v'X< I >. VV< I > HEXT I 
DATA 14.-1,1, 17.0.1. 16.1.1. 10.-1.0. 0.0.0 
DATA 12.1.0. 7.-1.-1. 5.0.-1. 9.1.-1 
FOR 1=1 TO 5 

READ Z$..BH<I> :EG$<n=Z$SPRINT"»";riIDì:(2$.2) : 
BGa>=PEEK<CRT) -NEXT! 

DATA "■iax".5. "W'.4. "n»".5. "nit".4. "3»".3 

PRINT"a("; : RETURN 

IN$=" '• " : ZT=TI : ZC=2 : ZDf=CHR$<20:' 

GETZf : IFZtO" "THEN60070 

IFZT<=TITHENPRINTMID$(" M".ZC. 1 > J "II"; :2C=3-ZC 


:ZT=TI+15 

GOTO60010 

Z=ASC':;Zf> :ZL=LEN':iN$> : IFCZANDIZZXSZTHENPRINT 
""II"; :GOTO60110 
IFZL>QI THEN60010 
I N$= I m+zt ■■ PR I NTZ$ ; ZD$ ; z$ ; 

I FZ= 13THENI N$=ri ID# ( I N$. 2 > : PR I NTCR$ ; : RETURN 
I FZ=20ANDZL> 1 THEN I N$=LEFTt < I Nf. ZL-1 ) : PR I NT " II" 
;:GOTO60010 

I FZ= 141 THENZ$=CHR$ < -20# t ZL> 1 > ) F0RZ=2T0ZL : PR I 

NT2$;:NEXT:GOTO60000 

GOTO60010 

CRT=1024 : VI0=53248 : WD=40 : CRf=CHR$(: 13) : SID=542 
72 ■■ JS=56320 : CM=55296 
QL=214:QI=254:RETURN 

GOSUB61000 ; POKE VI 0+32.0 : POKE VI 0+33.0 : LN=LEN(;p 
G$):TB=(40-LN>/2 

PRINT"nfiBfMBlUa"TAB(TB)LEFTì:< •• •' '• ^ •- •' ■' •' - - -• •' ' 

■' -• " " ". LN> 

PR I NT " a" TAB < TB ) PG$ : PR I NT " S" TAB < TB > LEFTf 

.,., .......^ 

PR I NT " m" TAB ( 40-LEN ( ALI# > > /2 ) AU# 

M3#="BATTI"RETURN"PER"INIZIARE" 
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62045 IFJFTHENMSfa" PREMI ^ IL" JOYSTICK "PER' INIZI RRE'* 
62050 TB* < < 40-LEH •: MSi: ) V2 ) 

62060 PRINT"WBWMk"TfiB<TB:'MSf : PRI NT " 

" C C " 1983 " THE " CODE " WORKS " 

62070 GETINf: IFIN$<>""THEN62120 
62080 IF C PEEK(JS > RND16)=0THEN62120 

62090 PRI NT •' mmmmmimm'' trb c tb > LEFTt c " . k+ i > l 

EFT$<MS$.Q) 

62100 Q=*Q+1:1 FQ>LEN ( MS$ > THENQ=0 : K= 1 -K 
62110 GOTO62070 

62120 CLR:PRINT" :G0SUB61000 : GOTO100 



Salvi 

(joystick) 



Una delle navi della flotta spaziale terrestre ha dovuto compiere un atter¬ 
raggio di fortuna su di un pianeta inospitale. Sta a voi organizzare la 
missione di salvataggio dei superstiti prima che questi vengano stermina¬ 
ti dagli alieni. 

La vostra astronave purtroppo non può atterrare, così dovete scendere 
sul pianeta con una navicella sulla quale potete caricare un solo supersti¬ 
te alla volta. Più uomini salvate e più gli alieni cercheranno di rendervi 
la vita difficile; essi hanno infatti tre tipi di navi spaziali armate, che or¬ 
bitano attorno al pianeta in tre orbite differenti, a velocità diverse, pro¬ 
ducendo inoltre "fiocchi spaziali" di energia letale che, una volta emessi, 
rimangono fermi dove sono. 

I livelli di gioco sono tre: nel primo avrete a disposizione cinque navicelle 
di salvataggio e gli alieni inizieranno con una sola orbita di navi, aggiun¬ 
gendo via via le altre in base al numero di superstiti da voi salvati. Nel 
secondo le orbite degli alieni saranno due e le navicelle a disposizione so¬ 
lamente tre. Nel più difficile le navi nemiche occuperanno tutte e tre le 
orbite mentre voi avrete una sola navicella per effettuare il salvataggio. 
C’è ancora un ultimo ostacolo: in tutti i livelli, dopo che voi avrete salva¬ 
to cinque persone e che gli alieni avranno già tre fasce di navi orbitanti, 
la zona di atterraggio (già piccola) verrà ridotta ulteriormente. 

Tirate la leva del joystick verso di voi per sganciare le navicelle e dirige¬ 
tele durante il volo; tutte le missioni iniziano con una riserva di 3000 litri 
di carburante e i punti sono assegnati per ogni persona salvata, a secon¬ 
da del grado di difficoltà del salvataggio. Il gioco termina quando non 
avrete più navicelle disponibili o quando avrete finito il carburante. 
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- CARATTERI SPECIALI UTILIZZATI - 

SIMBOLI GRAFICI 

I SHIFT T \ SHIFT M • SHIFT Q 

/ SHIFT N r SHIFT £ ♦ SHIFT Z 

X SHIFT V “ COMM T w COMM £ 

IS COMM + 


COMANDI & COLORI 

a RVS ON i RVS OFF H HOME 

n CLEAR W CRSR-D H CRSR-U 

Il CRSR-L II CRSR-R a CTRL WHT 

1 CTRL PUR ffl CTRL VEL fS CTRL RED 

fi CTRL ORN 3 CTRL BLU k CTRL CVN 

H COMM CVN 


PGf = " S •' A " L •' V 'l'"- RU$= " n I NICK " JACK IW " : JF= 1 

REM COPYRIGHT CO 1983 THE CODE WORKS 
REM BOX 6905. SANTA BARBARA. CA 93160 


REM AS OF 9/6/83 GF 

REM EDIZIONE ITALIANA: EDIGEO 1984 

GOTO62000 

DIMJD(15 >:FORI=0TO15 : READJD <I)•NEXT 

DATA0.0.0.0.0.6.6.6.0.'4.4.4/0.2.8.0 

DEFFNJ(X)=JD < PEEK C JS+X > AND15 >:DEFFNB(X > = (PEEK 

US+X>AND1G>=0 

GOSUB1000 : OF=CM-CRT CF-7 : CR=CRT“1 : MV=88 
POKESID+5.1 : POKESID+6.255 : POKESIDh-24. 15 : POKES 
ID+4.33 

MS=1:F=3000:s=0:L=SJ-1:LV=LF:HS=0:RU=0:BN=50 
FORI=0TO4:FORJ=0TO4:X(I.J>=0:NEXT:NEXT 
FORJ=1TOL+1 :ONJGOSUB590.600.610 :heXTJ 
PRINT'LT.; 

FORC'/= 1T023 : PR i ht " a ' ^ ^ ^ ^ ^ ' " •' '' '' ' 

/ / ••• ••• /• /• ••• ••• Il ; l'.J 
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117 GOSIJB280 

120 POKES111+24.15: pqkES I D+ 1.0 
125 

130 PRIHTIiN$"a-\" 

140 PRI NT " ^ '- 1.^ - 

- 

150 PR I NT " m - ••• '■ " •' '■ •' •' •' '■ " 

155 GOSIJB800 

160 PR I NT ■■ 83" : X= 1 : IJS=87 : V= 1 : V=2 : FlD=-1:1 FRIJ=0THENRLI 
= 1 :GCiSIJE580 

170 POKECR+WD+X. US : POKECR+UD+X+OF.. CP : GOSUB280 
175 I FF<=0THENGOSUB290 : GCiTO640 
180 D$=RIGHT$<STR$(FNJ(0)>.1>:IFDf="0"TRENI90 
183 V=2 : SS=CR+K+WD : POKESS. flV 

185 POKECR+X+WD*V. US : POKECR+X+WIiif:V+OF. CP : POKES ID+ 


1.99:GOTO320 

190 GETQ$ : IFQ$="Q"THENPRINT'K"]a|" : POKES111+1.0 : POKES 
ID+15.0:END 
195 GOSUB230 

200 F=F-2:IFF=0THENGOSUE290:GOTO640 
210 POKECR+WD+X.32 :X=X+V: IFX=40ORX=1THENV=-V 
220 GOTO170 

230 FORI=0TOL-1 :Xc;i.2)=X<I.2> + l : IFX< 1.2)<X< 1.0)TH 
EN 260 

240 X <; 1.2 :■ =0 : X$ < I > =R I GHT$ ( X$ Q . 1 > +LEFT$ X$ < I >. LE 
N(:x$<i>>-n :pRiNT"sa"; 

250 PRINTLEFTtC"r*B".I +1>LEFT$C DN$ .X<1.1>>X$CI>"S 


260 NEXTI:ER=0:PP=PEEK<PP>:IFPP=86ORPP=90ORPP=105 
THENER=1 
270 RETURN 

280 PR I NT " a«:RRE : " MI D$ C STR$ < F >. 2 > " ^ •- - " 

285 PR I NT " 83^" TRE < 12 > " " ^ " PUNTI : " J MI < STRf C S . 2 > " •- 

y / y y y y y y y ii ; RE JURN 

290 POKESID+24.15:pqkeSID+ 1.0 :FORJ=1T06 
295 POKES ID+1.246 : PR I NT " aaa:RRBURRNTE 'FINITO!"''"^ 
:F0RI = 1T099:NEXTI 

300 POKES I ri+ 1. 165 : PR I NT " Ì3:CRRBURRNTE •- FINI TO ! " : FOR 
I = 1T099:NEXT I..J 

305 POKESID+1.0: POKESiri+24.0: FOR 1 = 1 TO 200:NEXT 
I :LV=0: RETURN 


320 U=0:2=FNJ<0> 

321 POKES iri+1.81 
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330 Df=C$:POKESID+1.0 

335 GETQ$: IFQ$="Q"THENPRINT" ■ P0KE31D+1.0 :POKES 
ID+15.0::EHD 

340 IFZ=4THEHF=F-10:GOSUB540:OHGTGOTO400.420 
350 IFZ=6THEHF=F-10 :GOSUB560:ONGTGOTO400.420 
360 IFFNB<;0K>0PHDV>3THEHF=F-50 •' V=V+firi 
370 P0KECR+X+V#wri. 32 : V=V-Firi : fl=0 : U=1 : P=PEEKCCR+X+V 
JfiWri) : GOTO420 

380 IFRHD(1>4!30>=LTHEH400 

381 KV= INT<RND( 1 >3»< 15+3> :KX= INT<RND( i:>W39> + l 

382 IF KV=9 OR KV=12 OR KV=16 OR KX=X THEN 400 
385 K=CRT+KV3*!Wri+KX 

390 IFPEEK < K > =320RPEEK(K > =96THENP0KEK.42 :POKEK+OF 

j 8 

400 GOSIJB230: IFERTHEN635 

410 F=F-1 :GOSIJB280: IFF>0THEN320 

411 GOSUB290:F=0:GOTO640 

420 IFP=104THENGOSIJB470 : GOTO320 
430 I FP=riVTHENGOSLIB900 : GOSUB520 : POKES ID+1.0 : GOTO 1 
60 

440 I FP<>LISfiNDP<>32flNDP<>96THEN635 
450 PP=CR+X+V#WD : POKEPP. US •' POKEPP+OF. CP : ONIJ+1 GOTO 
370.380 

470 POKECR+X+VifWD. 87 : HS=HS+1 : POKES ID+1.120 
480 POKECR+21 WD+HS. 32 

485 JL=32 : JM= 190 : FORJK=CR+21 st!UD+HS+UriTOCR+X+Vif.WD 

486 POKEJK-1.JL;JL=PEEK C JK):POKEJK.81:POKESID+1.J 
M:FORJ=1TO30:NEXT 

487 JM=JM-10 : POKES I Ii+1.0 : NEXT : US=81 

488 POKECR+X+V^WIi. US : POKECR+X+Vi*WD+OF. CP 

490 IF FNJ(0)=0 THEN GOSUB 230:GOSUB 850:GOTO 490 
495 POKESID+1.100 :FORJ=1TO40:NEXT 
500 POKECR+X+VifWD. 104 : V=V-2 : fiD=-fiD : POKES ID+1.0 : RE 
TURN 

520 POKESS.32:1FDFRNDUS=81THENflP=1 
525 IFriF=0THENS=S+(MS+l >#10 
530 IFHS=5flNDfiP=0THENS=S+BN:G0SUB955 
535 IFHS=5THENHS=0 : l=lP=0 : riS=riS+l : RU=0 : PRINT"a" ; DN$ 
; "llQliMttttal" :GOSUB800 


537 GOSUB280:FORI = 1TO750:NEXTI : RETURN 


540 IFX>1THENPOKECR+X+V#WD.32 :X=X-1 :P=PEEK C CR+X+V 


if:Wri> : GT=2 : RETURN 


550 GT=l:RETURN 
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IF:K<WDTHENPOKECR+X+Vit!WD. 32 : K=X+1 : P=:PEEKCCR+X+ 
VJtsWD) : GT=2 : RETURN 
GT=1: RETURN 

L=L+1 ONLGOSUE590.600.610.620 

'r- 'liir '•«ii' 'F' 'nm 

x<0. 0>=4 : X(0. 1 > = 12 : RETURN 

x$< 1 'ir n 

: xa . 0>=3 : xa . 1 > = 16 : RETURN 

)<U2)=''- wy/ n X'' n "x-’ •'ir x^'^ii-- '■ x'^ ir •'x'' ^ " " 

: X < 2.0 > =2 : X(2.1> =9 : RETURN 

L=L-1 :P0KECR+22i*Uri+16.100 : P0KECR+22ifWD+14.100 
: RETURN 

Q=CR+X+1 NT < V > #l-JD : 2=PEEK ( Q > : POKE Q. 160 : PRI NT " « 
CRfiSH ! '■ " " " 

F0RJ=1T04:PRINT-aaCRPSH!":FORJ1=1TO20:POKESID 
+1.255:POKESID+1.0 

NEXT J1 : PR I NT " ai:RRSH ! " : FOR J1 = 1T099 : NEXT NEXT : F 

ORJ=1TO500:NEXT 

POKEQ. 2 : riF=l : 6OSUE520 : DF=0 

LV=LV-1:IFLV>0THENPOKESS.32 : GOTO155 

IFS>BSTHENES=S:EF=F 

IFriS>ENTHENEri=riS 

IFF<0THENF=0 

riT=MT+r'1S : FT=FT+F : NT=NT+1 : TS=TS+S : RVG=INT(TS/N 
T>:Ffl=INTCFT/NT> 

RVG= I NT < TS/NT > : FR= I NT < FT/NT > : NR=riT/NT : riR=. 1 * 
iNTa-iRifiiG:*:* 

DF$="FfiCILE" : IFSJ>lTHENriF$="NEDIO" : IFSJ=3THEN 
riF$=" DIFFICILE" 

PR I NT " nmePSiiiiiiiiWRPPORTO •' DELLE -• MI SS IONI 
PRINT"WtìPT' ' -'LI VELLO : "DF$ 

PRINT":!!rTRB'::27>"N. "DI 

PRINTTRECI8>"PUNTI"; TRE(25>;"MISSIONI" 

PRINT" W "QUESTR"PROVR:"TRE C19 > S; TRE C 27 > MS 
IFNT<2THEN730 

PR I NT " W RISLILT .MIGLI ORE : " TRE C19 > BS ; TRE C 27 > BM 
PRINT"W"""""MEDIR";"TRE C19 > RV; TRE C 27 > Mfi 
GOSUB9100 

I FVN=0THENPOKES ID+24.0 •• PR I NT " n:t" ■ END 
PRINT'Msr :GOTO110 

PR I NT " asi" ; DN$ ; " wiiPisn i ss i one : " ; MS ; " •' " prò vr ; " ; 
NT+1 ;""NRVICELLE"RIM:"j LV-1 ; 

RETURN 
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850 F=F-1 : GOSIJB280 : FORI = 1TO80 : HEXTI : RETURN 
900 REM SOUND 

910 FORJ=100TO30STEP-3:POKESID+1.J:NEXT:POKESID+1 
A3 : RETURN 
950 REM BONUS 

955 PRI NT " a" TfiB ( 25 ) " SIBONUS ! ! ! ■" 

960 POKESID+1.150 :FORJ=1TO300:NEXT:POKESID+1.100 : 
FORJ=1TO300'NEXT 

965 POKES ID+1.50 : FOR.J= 1TO300 : NEXT : POKES ID+1.0 ^ RET 
URN 

1000 PR I NT " : GOSUB7000 

1030 IFG=1THENLF=5:SJ=1 : RETURN 
1040 IFG=2THENLF=3:SJ=2: RETURN 
1050 IFG=3THENLF=1 :SJ=3: RETURN 
7000 PR I NT " riaelSBCEGL I UN •' LI VELLO : 

7010 FORI = 1T03:PRINTI ; :NEXTI :PRINT :G=1 :T=1 :TM=0 
7020 X=G:IF TI>TM THEN PRINT TRB<3itiG-3> ;MID$< " *3". 

T. l>j "T';G:T:=3-T:TM=TI + 10 
7030 IF FNJ<0>=4 THEN IF G>1 THEN G=G~1 
7040 IF FNJ(0>=6 THEN IF G<:3 THEN G=G+1 
7050 IF XOG THEN PRINT TfiB(3Jt!X-3> ; " JH" ; X : T=1 : TM=0 
7060 IF FNB<0)=0 THEN 7020 
7070 RETURN 
9100 NO=0: PRINT 
9110 TM=0:SW=1 

9115 PR I NT " «31OCHI '■ flNCORfi? " B5 r NO ■- 1" 

9120 IF TKTM THEN 9150 

9130 PR I NTTfiB < 14+N0.454 ; MI D$ . SW > 1 ) J MI D$ < " •' SI NO 

•'".3#N0+1.3>; "H" 

9140 SW=3-SW-TM=TI+15 

9150 JD=PEEK •: JS > flND31 : JB= C JD< 16): JD=JDflND 15 
9160 IF JB AND JD=15 THEN VN=':;NO=0> : RETURN 
9170 IFCJD fìND 8>=0 fìND NO=0 THEN NO=l:GOTO 9115 
9180 IF<.JD HND 4>=0 AND NO=l THEN NO=0:GOTO 9115 
9190 GOTO 9120 

60000 IN|:=" ••• ■■ ; 2T=TI : 2C=2 : 2D$=CHRf <20> 

60010 GET2$: I FZPO ""THEN60070 

60020 IF2T<=TITHENPRINTMIDt(: " '1". 2C. 1 > ; "II" ; : 2C=3-2C 
; 27=71 + 15 
60030 GOTO60010 

60070 2=flSC<2#>:2L=LENaN$>:IF<2AND127)<32THENPRINT 
"^ir;:GOTO60110 
60090 IF2L>QI THEN60010 
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60100 I N$= I Ht+Z$ ■■ PRI NTZf ; ZDf ; Z$ i 
60110 IFZ=13THENIN$=mD$<IHf.2> :PRINTCRfJ :RETIJRN 
60120 I FZ=20flHDZL> 1THEHI Nf=LEFTf < IHS. ZL-1 > : PR I NT " II" 
;:GOTO60010 

60130 I FZ= 141 THENZ$=CHR$ C -20!*i < ZL> D > : F0RZ=2T0ZL : PR I 
NTZfj : HEXT •• GOTO60000 
60140 GOTO60010 

61000 CRT«1024 : VIC=53248 : WD=40 : CR^=CHR|:C 13> : SID=542 
72 :JS=56320:CM=55296 
61010 QL=214:QI=254:RETURN 

62000 G0SUB61000 :POKEVIC+32.0 :POKEVIC+33.0 :LH=LEN < P 
G$):TE=<40-LN>/2 

62010 PR I NT " ZWBlBlfiliia" TRE (TE ) LEFTf C " ' ^ ^ " ■' ■' 

LN) 

62020 PR I NT " a" TRE ( TE ) PG$ •• PR I NT " a" TRE C TE > LEFT$ < " ^ ^ " 

62030 PR I NT " m" TRE ( C 40-LEN < RIJ$ ) > /2 ) RIJ$ 

62040 f1S#= " ERTTI " RETURN ' PER "INIZI RRE " 

62045 IFJFTHENMSf="PREMI"IL"JOVSTICK"PER"INIZIRRE" 
62050 TE= < C 40-LEN C MS$ > >/2) 

62060 PR I NT " MIBaifc." TRE < TE > MS$ : PR I NT " MKBMtìJlMk" ^ ^ " 

" < C > " 1983 '• THE " CODE " WORKS " 

62070 GETIN$:IFIN$<>""THEN62120 
62080 IF(PEEK < JS)RND16 > =0THEN62120 
62090 PR I NT " -ammmxmmmm" tre c te > left^ k+ i > l 

EFT$<MS$.Q> 

62100 Q=Q+1 : IFQ>LEN(:riS$>THENQ=0:K=l-K 
62110 GOTO62070 

62120 CLR : PR I NT " ■ G0SUE61000 : GOTO 100 
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